




•.giv. 


Listings 


r Top- 
Anwendungen 


INeu: Fantastisches Zeichenprogramm im 80-Zeichen-Modus 
I Faszinierend: Der Computer generiert aus Flußdiagrammen Basic-Listings 
I Komfortabel: Diskettenverwaltung für alle Floppy-Laufwerke 
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EDITORIAL 



Ihr Elmar Friebe 
(Redakteur) 


cts*' 


A ls der C128 auf den Markt kam, schienen die 
Voraussetzungen für Erfolg ideal zu sein. Die 
Kompatibilität zu seinem kleinen Bruder C64 
garantierte für ein überwältigendes Softwareange¬ 
bot. Mit CP/M stieß der C128 sogar die Tür zu profes¬ 
sionellen Systemen weit auf. 

CP/M ist als Betriebssystem längst überholt. Und 
kommerzielle Programme, die die spezifischen Fä¬ 
higkeiten des C128 ausnutzen, sind leider noch im¬ 
mer Mangelware. 

Haben Hunderttausende von Käufern auf das fal¬ 
sche Pferd gesetzt? 

Zahlreiche Programmeinsen¬ 
dungen und Tips & Tricks, die 
uns fast tagtäglich erreichen, 
belegen eindeutig das Gegen¬ 
teil. Das Interesse an diesem 


Fehl¬ 
investition? 


Computer ist ungebrochen. Unseren Lesern ist es zu 
verdanken, daß das Software-Defizit nicht mehr so 
groß ist. »Mastertext 128« ist nur eines von vielen Bei¬ 
spielen dafür. Ein Sonderheft wie dieses, das sich 
ausschließlich dem C128 widmet, ist daher das beste 
Forum, den Mangel an interessanten Anwendungen 
zu beseitigen. 

Ein Computer ist so gut wie seine Software. Alle 
Programme aus diesem 6. Sonderheft zum C128 be¬ 
weisen, welche Leistung in diesem Computer steckt. 

Neuigkeiten bei Hardware und Software für den 
C128 haben wir bereits seit einigen Jahren in geball¬ 
ter Form vorgestellt. Die Grenzen des Möglichen sind 
aber noch lange nicht erreicht. Die Entwicklung zu 
professionelleren Programmen hat erst begonnen. 

Wir werden daher auch in Zukunft das 
Forum für diese vielseitige 
Maschine bleiben. 


I INHALT 


Hardware 

Grafikspeicher auf 64 KByte erweitern 

Mit dem Austausch zweier Chips nutzen Sie die ver¬ 
besserte Grafikauflösung von 720 x 700 Punkten 

H 6 


Listings 

Alle Disketten im Griff 

Mit »Dispo 128« behalten Sie jederzeit den Über¬ 
blick. Das Verwalten und Archivieren Ihrer Disketten 
wird zum Kinderspiel. 

U 8 

Disketten-Magier für den C 128 

Diskettenmanipulationen ganz einfach: »Floppy- 
Support« ist ein Disketten-Utility mit viel Komfort. 

H28 

Hexer II 

Das flexible Kopierprogramm für den C 128 schließt 
in der neuen Version alle Lücken. Die Commodore- 
Speichererweiterungen werden automatisch erkannt 
und genutzt. 

H40 

Oh Mutter 

Dieses knifflige Denkspiel stellt Sie vor eine schwere 
Aufgabe. Ihre logischen Fähigkeiten sind gefragt. Lö¬ 
sen Sie das Problem der durcheinandergeratenen 
Sechskantmuttern. 

H53 

Bildschirmmasken schnell und einfach 

Gestalten Sie Ihre Menüs noch ansprechender: Der 
Maskengenerator ist ein effektives Werkzeug für 
Bildschirmmasken. 

H 58 

Alles fließt 

Strukturiertes Programmieren ohne Probleme - Sie 
entwickeln ein Flußdiagramm, und das Programm 
setzt es automatisch in ein Basic-Listing um. 

S^6R C 

U 66 

Schöner zeichnen mit Gredi 

Komfortables Zeichenprogramm für den 80-Zeichen- 
Bildschirm mit integriertem Zeichensatzeditor 

H90 


Software 


Zwei zu Null für den C 128 

Was leistet das neue Geos 128 in der Version 2.0? 


116 


Textomat Plus 128 und Datamat Plus 128 

Kommerzielle Software als Kurzübersicht 


117 
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Kurs 


Tips & Tricks 


Mit dem Tedmon auf Entdeckungsreise 

Per Anhalter durch die Speicherlandschaft. Lernen 
Sie den integrierten Maschinensprachemonitor ken¬ 
nen. Nutzen Sie die Betriebssystem-Routinen __ 

des C 128. B 118 


Die Tips & Tricks-Kiste 

Nützliche Tips rund um den C 128 B 156 


Eingabehilfen 



Checksummer 128 & MSE 

Diesen Artikel sollten Sie unbedingt lesen, wenn Sie 
Programme aus diesem Sonderheft abtippen wollen 


158 


Sonstiges 


Editorial 


Wettbewerb 


Disketten kopieren in einem 
Durchgang: Mit dem »Hexer« und der 
Speichererweiterung 1750 kein Problem 

Seite 40 


Fantastische 
Zeichnungen auf dem 
80-Zeichen-Bildschirm. 
»Gredi« besticht mit 
vielen durchdachten 
Funktionen. 
Seite 90 


Mitmachkarte 


Impressum 


Vorschau 


Alle Programme aus Artikeln mit einem Q -Symbol finden Sie auch auf 
der Programmservice-Diskette zu diesem Sonderheft 


anurUfe 


Tiefer Einblick in die 
Speicherlandschaft des C128 - 
begleiten Sie uns auf der Rei¬ 
se durch den TEDMON 
Seite 118 
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HARDWARE 


Grafikspekher auf 64 


Der Grafikspeicher beim neuen C128D im Blech¬ 
gehäuse ist weitaus größer als beim alten C128. 
Ein kleiner Eingriff in die Hardware genügt, um 
die älteren Modelle aufzurüsten. 

A us alt macht neu - nur zwei Chips müssen Sie wech¬ 
seln. Anschließend steht Ihnen die Computer-Welt 
mit einer höheren Grafikauflösung zur Verfügung. 

Im Sonderheft 29 informierten wir Sie ausführlich über 
die geänderte Hardware beim C128 DCR (C128 im Blech¬ 
gehäuse). Eine wesentliche Verbesserung bei diesem Ge¬ 
rät ist der auf 64 KByte erweiterte Speicher des VDCs 
(Video-Chip). Den C128- sowie den älteren C128D-Model- 
len stehen nur 16 KByte Grafikspeicher zur Verfügung. Das 
läßt sich ändern. 

Dazu öffnen Sie das Gehäuse Ihres Computers (6 
Schrauben unter dem Gerät - beim C128) und schrauben 
das Abschirmblech sowie die Platine vom Geräteboden 
los. Nun entfernen Sie auch das Abschirmblech vom VDC 
(nach oben abziehen; in Bild 1 bereits erfolgt). Jetzt löten 
Sie die beiden in Bild 1 gekennzeichneten Speicher-Bau¬ 
steine aus (U23 und U25: RAMs, Typ 48416,16K x 4Bit) und 
tauschen diese gegen zwei neue, pinkompatible RAM-Bau- 
steine des Typs 41464 (64K x 4Bit) oder 50464 (kompatibel 
zu 41464). In Tabelle 1 haben wir es nochmals aufgeführt. 
Die Zugriffszeit der Bausteine kann 150 ns (Nano- 
Sekunden) oder 120 ns betragen. Da diese RAM-Bausteine 
nicht überall zu kaufen sind, finden Sie im Info am Schluß 


des Artikels einige Bezugsadressen. Es empfiehlt sich, 
Sockel für die RAM-Bausteine einzulöten. Beim Einstecken 
der neuen ICs sollten Sie auf die richtige Lage der Kerbe 
achten (Kerbe zeigt zu den Kondensatoren C23 und C25). 
Hier noch ein Tip: Sollten Sie die alten RAMs nach dem Ent- 
löten mit einem Schraubenzieher heraushebeln wollen, 
achten Sie auf die Spule L4 (grün mit farbigen Ringen) über 
U23, die sehr empfindlich ist und leicht bricht. 

Um einen Eindruck von der neuen Leistungsfähigkeit zu 
erhalten, hier nochmals ein Auszug des VDC-Kurses aus 
Sonderheft 29, der die hochauflösende Grafik behandelt. 

Hochauflösende Grafik 


Durch die reichliche Ausstattung mit 64 KByte VDC-Spei- 
cher ist es nun mit dem C128 möglich, Grafiken in geradezu 
traumhaften Auflösungen, wie man sie sonst nur von pro¬ 
fessionellen Personal Computern kennt, zu erzeugen. 

Wesentlich dabei ist, daß die Einstellung der einzelnen 
VDC-Register optimal aufeinander abgestimmt ist. 

Da die Auflösung einer Grafik größtenteils von einer sau¬ 
beren Synchronisation abhängt, haben wir in Tabelle 2 eini¬ 
ge Beispielwerte für die Belegung der Register für ver¬ 
schiedene Grafikauflösungen zusammengestellt. Das Ein¬ 
schalten der Grafik geschieht ganz normal über Register 
25, das ebenfalls in der Tabelle berücksichtigt wird. 

Natürlich sind die 64 KByte VDC-RAM auch dann nutz¬ 
bar, wenn Sie nicht von der Bildschirmdarstellung in An- 



Bild 1. Wenn Sie die beiden gekennzeichneten Speicherbausteine austauschen, erhalten Sie 64 KByte VDC-Speicher 
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KByte erweitern 


HARDWARE 


Baustein-Nr. 

bisher 

neu 

U23 

48416 

41464(oder 50464) 

U25 

48416 

41464 (oder 50464) 


Tabelle 1. Diese neuen Bausteine müssen auf der Platine 
als Grafikspeicher eingesetzt werden 


10 FAST : ADRESSE-42200: BYTE-35 <KBP> 
20 REM SCHREIBEN <AHA> 
10 GOSUB 1000 <1VC> 
40 SYS DEC("CDCC"1■BY AND 255.31 <S1P> 
50 i sHQ7> 
60 REM LESEN <BHE> 
70 GOSUB 1000 <3VC> 
80 SYS DEC("CDDA">,.31s RREG M <01R> 
90 PRINT : PRINT W: END <BUE> 
100 : <2C9> 
1000 OF-0: IF AD> 32768 THEN AD=AD-32768: OF-128 <87Q> 
1010 HI = 1NT(<AD-H1/256H-DF: LO-IADU) AND 255 <4R6> 
1020 SYS DEC <"CDCC"),HI,1B: SYS DEC("CDCC">,LO,19 <3D7> 
1030 AD=AD*256*0F: RETURN <FFS> 


Listing 1. Schreiben und lesen lassen sich die 
64 KByte ohne Probleme. Der Entwicklung einer RAM- 
Fioppy steht nichts im Wege. 


Spruch genommen werden. In Listing 1 sehen Sie, wie sich 
von Basic aus die 64 KByte als Zwischenspeicher nutzen 
lassen. Eventuell auftretende Spiegelungen hängen mit 
der Adresse des Zeichensatzes, des Bildschirmanfanges 
und der Attribute zusammen. Verlegen Sie diese, wenn 
durch sie Interferenzen auftreten. 

Abschließend noch ein Hinweis: Auf der Programmservi¬ 
ce-Diskette zu diesem Sonderheft befindet sich nochmals 
das Spiel »Super-Vektors« aus Sonderheft 36, das speziell 
für den erweiterten Grafikspeicher entwickelt wurde. 

Natürlich sind wir an weiteren Listings mit hoher Gra¬ 
fikauflösung interessiert. Also, lassen Sie Ihrer Kreativität 
freien Lauf und schicken Sie Ihre Programme an die Re¬ 
daktion Sonderhefte. (Markus Ohnesorg/kn). 


Bezugsadressen für RAM-Bausleine Typ 41464 oder 50464: 

- Fa. Garnet Weiss, Stfiberlslr. 82, 8000 München 21, Tel. 089/586914 

- Conrad Electronic GmbH, Klaus-Conrad-SlraBe 1, 8452 Hirschau, Postfach 1180, Tel. 
09622/30-111, Btx: 20744 * (Bestell-Nr. für den 41464: 166570) 

- Bürklln, Schlllerstr. 40, 8000 München 2, Tel. 089/555321 

- HW Elektronik, Eimsb. Chaussee 79, 2000 Hamburg 20, Tel. 040/4396846 

Die Preise erfragen Sie bitte selbst, da Speicherbausteine meist nach Tagespreisen gehandelt 
werden. 
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Auflösung Register 

Belegung in S 
Neu Standard 

Modus 

Auflösung Register 

Belegung in S 

Neu Standard 

Modus 

Auflösung Register 

Belegung in S 

Neu Standard 
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63 
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19 
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5c 
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7 

67 

20 
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720 

7 

65 

20 
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750 

7 
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mal 
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26 



4 
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5 
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Tabelle 2. Einige der jetzt möglichen Auflösungen und die dazugehörigen VDC-Registerwerte 
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LISTINGS 


W issen Sie immer genau, welche Programme auf Ih¬ 
ren Disketten gespeichert sind? Hat die Sammlung 
einen bestimmten Umfang erreicht, beginnt oft die 
Suche: Wo ist das Tool unter den Disketten zu finden? 
Steckt es bei irgendeinem Anwendungsprogramm? 

Spätestens in diesem Moment beginnt man einzusehen, 
daß eine sorgfältige Archivierung aller vorhandenen Pro¬ 
gramme recht hilfreich sein könnte. Alles, was dazu fehlt, ist 
ein Programm, das Ihnen dabei die Arbeit erleichtert. 

Mit »Dispo 128“ (Listing 1) läßt sich sehr komfortabel eine 
Vielzahl von Disketten verwalten. Zusätzlich findet sich ei¬ 
ne Reihe von Funktionen, die bei einer Diskettenverwal¬ 
tung oft vermißt werden. Wollen Sie zum Beispiel die ID ei¬ 
ner Diskette ändern? Kein Problem für »Dispo 128-. 

Ein besonderer Vorteil des Programms ist die automati¬ 
sche Erkennung des Diskettenformats. Ob Sie einseitige 
Disketten im 1541-Format, zweiseitige Disketten im 1571- 
Format oder Disketten des 1581-Laufwerks verwenden - 
»Dispo 128« stellt sich sofort auf das betreffende Disket¬ 
tenformat ein. 

Allgemeine Hinweise 


Bevor die umfangreichen Programmfunktionen detailliert 
beschrieben werden, sollten Sie einige Hinweise zum Pro¬ 
gramm beachten: 

Dateigröße: 

Eine Programmdatei, die Sie mit der Diskettenverwal¬ 
tung erzeugen, darf maximal 1070 Einträge umfassen. Die¬ 
se Einschränkung dürfte jedoch in den meisten Fällen un¬ 
erheblich sein. 

Bei der Arbeit mit dem Programm erfolgt eine ständige 
Überprüfung der aktuellen Dateigröße. Diese wird auf dem 
Bildschirm jederzeit angezeigt. Sind Sie bei einer Größe 
von 1000 Einträgen angelangt, sollten Sie auf das Einlesen 
einer Diskette mit mehr als 100 Einträgen verzichten. Ein 
»out of memory error« wäre sonst die Folge. 

Dieses Problem, das speicherplatzmäßig bedingt ist, läßt 
sich aber bei größeren Diskettensammlungen einfach um¬ 
gehen. Speichern Sie eine Datei nach zirka 1000 Einträgen 
auf Diskette. Danach löschen Sie diese Datei aus dem 
Speicher des C128 und bearbeiten die nächsten Disketten. 
Hilfsbildschirm: 

Einen Hilfsbildschirm können Sie immer dann aktivieren, 
wenn dies während des Programmablaufs auf dem Bild¬ 
schirm angezeigt wird. Schalten Sie dazu am Monitor vom 
80-Zeichen-Modus auf den 40-Zeichen-Modus um. 

Der Hilfsbildschirm beinhaltet Informationen über Pro¬ 
grammtypen, die Reihenfolge der Ausgabe der Programm¬ 
typen und die Diskettenformate (Bild 1). 
Laufwerksabfrage: 

Bei jeder Diskettenoperation wird auf die Eingabe der 
Laufwerksnummer gewartet. Zur Auswahl stehen 8 oder 9. 
Eine Erweiterung auf weitere Laufwerke ist jedoch pro¬ 
blemlos möglich. 

Nach jedem Ansprechen eines Laufwerks wird auf dem 
Bildschirm der Laufwerkszustand ausgegeben (»Status«), 
Fehler werden abgefangen und auf Fehlerursachen hinge¬ 
wiesen, Ist beispielsweise ein Laufwerk nicht eingeschal¬ 
tet, kommt sofort der Hinweis, dies nachzuholen oder ein 
anderes Laufwerk anzusprechen. 

Disketten, die mit Speedern auf 40 Spuren aufformatiert 
wurden, werden vom Programm automatisch erkannt und 
ebenfalls korrekt eingelesen. _ 









LISTINGS 



DISKETTEN 

IM GRIFF 


- Mit dem Programm »Dispo 128« behalten 
Sie jederzeit den Überblick über Ihre Dis¬ 
kettensammlung. Bis zu 1070 Einträge las¬ 
sen sich nun komfortabel verwalten. Beson¬ 
ders positiv ist: Das Programm erkennt 
selbständig, mit welchem Diskettenformat 
Sie arbeiten. Mit »Dispo 128« archivieren 
^8 Sie sogar die Disketten im 1581-Format. 











LISTINGS 


Kurzinfo: Dispo 128 


Programmart: Diskettenverwaltung 
Laden: RUN "DISPO 128" 

Start: Nach Eingabe dieses Befehls startet das 
Programm automatisch 

Besonderheiten: Das Programm erkennt die Diskettenformate der 
1541/1571/1581-Laufwerke. Aufformatierte Disketten (40 Spuren) 
lassen sich verarbeiten. Die maximale Dateistärke beträgt 1070 
Einträge. 

Programmautor: Hartmut Alm 


Druckerroutinen: 

Das Programm ist an einen MPS1000 (seriell und paral¬ 
lel) angepaßt. Die Druckerroutinen enthalten jedoch be¬ 
wußt keine speziellen Steuerzeichen, um eine leichte An¬ 
passung an andere Drucker zu ermöglichen. Steuerzei¬ 
chen für komprimierte Schrift oder NLQ lassen sich pro¬ 
blemlos einbauen. 

Wenn Sie entsprechende Änderungen ins Programm 
einbauen wollen, finden Sie in Tabelle 1 eine kurze Über¬ 
sicht, in welchen Zeilen des Listings bestimmte Routinen 
zu finden sind. 

Nach dem Start des Programms wird das Titelbild aufge¬ 
baut. Durch die notwendigen Felddimensionierungen zu 
Beginn dauert es einige Sekunden, bis Sie eine der Funk¬ 
tionen anwählen können. 

Der Bildschirmaufbau ist sehr übersichtlich (Bild 2). Un¬ 
terhalb der Kopfzeilen erkennen Sie auf der linken Seite alle 
Programmfunktionen aufgelistet. Drücken Sie die entspre¬ 
chende Taste, um einen der Punkte zu aktivieren. 

In dem Fenster darunter sind die aktuelle Datei, die Zahl 
der vorhandenen Eintragungen, das Diskettenformat und 
das verwendete Laufwerk angezeigt. Bei jeder Aktion, die 
ein Laufwerk anspricht, geben Sie vorher die Laufwerks¬ 
nummer ein. 

Das Fenster auf der rechten Seite ist der eigentliche Ar¬ 
beitsbereich für Bildschirmausgaben oder notwendige Ein¬ 
gaben. 

Fehlermeldungen beziehungsweise Hinweise werden 
bei Bedarf im untersten Fenster eingeblendet. 

1. Directory einiesen 

Wollen Sie sich das Directory einer Diskette ansehen, be¬ 
tätigen Sie die Taste <1 >. Das Programm fordert Sie dazu 
auf, die entsprechende Laufwerksnummer einzugeben. 

Das Directory erscheint im Anzeigefenster. Sind mehr als 
12 Einträge auf der Diskette, werden die folgenden Pro¬ 
gramme nach einem beliebigen Tastendruck aufgelistet. 

2. Disketten-Befehle 

Mit der Taste <2> gelangen Sie in ein weiteres Unter¬ 
menü, dessen Funktionen Sie wieder mit der entsprechen¬ 
den Zahlentaste aktivieren können (Bild 3). Für einige Ope¬ 
rationen ist es sinnvoll, zunächst die Diskette einzulesen, 
die Sie bearbeiten wollen (Taste <9>). 

<1 >: Senden von Diskettenbefehlen. Der Befehl »N« ist 
nicht erlaubt. 

<2>: Formatieren einer Diskette. Wählen Sie hier zwi¬ 
schen 1541-Format (Taste <A>) oder 1571/1581— 
Format (Taste <B>). 

<3>: Änderung des Diskettennamens 
<4>: Änderung der Disketten-ID. Die neue ID ist dreistel¬ 
lig einzugeben. Das Programm hängt an die drei¬ 
stellige ID automatisch 2 Byte an. Das erste Byte ist 
ein CHR$(32) (ein Leerzeichen). Je nach Schutzzu¬ 
stand der Diskette besteht das zweite Byte aus ei¬ 
nem CHR$(45) (entschützte Diskette) oder aus ei¬ 
nem CHR$(60) (geschützt). 

<5>: Diskette schützen (softwaremäßig). In der ID erken¬ 
nen Sie am CHR$(60), ob eine Diskette geschützt 
ist. Beispiel: 112 < 


<6>: Entschützen einer Diskette. Einen entfernten 
Schreibschutz erkennen Sie am CHR$(45) als fünf¬ 
tem Byte der ID. Beispiel: 112 - 
<7>: Eine oder mehrere Dateien auf der Diskette mit ei¬ 
nem Schreibschutz versehen. Beispiel: Geben Sie 
»MA« ein, werden automatisch alle Dateien, die mit 
diesen Buchstaben beginnen, schreibgeschützt. 
<8>: Dateien entschützen. 

<9>: Einlesen einer Diskette. Wenn Sie die Diskette 
wechseln, sollten Sie mit dieser Funktion die neue 
Diskette anmelden. 

Während der Arbeit mit dem Programm ist es nicht not¬ 
wendig, einen bestehenden Schreibschutz aufzuheben, 



Bild 1. Nützliche Informationen finden Sie jederzeit 
auf dem 40-Zeichen-Bildschirm 


umÄp^rungen vorzunehmen. »Dispo 128« erkennt einen 
vorhandenen Schreibschutz und hebt ihn im Speicher des 
Laufwerks auf. Alle beschriebenen Funktionen lassen sich 
damit auch auf einer geschützten Diskette ausführen. 

3. Neues Directory 

Eine sehr nützliche Funktion rufen Sie mit der Taste 
<3> auf. Sie erlaubt, ein Directory völlig umzuschreiben, 


1000 - 1040 Abfrage für 80-Zeichen-Modus 
1050- 1320 Bildschirmaufbau 
1330 - 1490 Dimensionierung und Erstellen von 
Programmdaten 

1500 - 1780 Hauptabfrage für die Tastatur 
1790 -1870 Programm-Abbruch 
1880- 1990 Directory-Einleseroutine 
1890-2780 Diskettenbefehle 
2880 - 3100 Laden von Dateien 
3120 - 3320 Speichern von Dateien 
3480 - 3710 Programmeingabe von Hand 
3730 - 4200 Programmeingabe vom Directory und der 
kompletten Diskette 

4210 - 4600 Programmtypeneingabe und Eingabe für deren 
Reihenfolge bei Ausgabe 
4770 - 5070 Listen von A-Z 

5080 - 5270 Listen von Diskettenformat und Programmtypen 
5470 - 5600 Listen nach Programmtypen 
5610 - 5900 Listen einer Diskette, eines Programmtyps und 
eines Diskettenformats 

5980 - 6230 Abfrage und Erstellen des Druckkopfs 
6240 - 6570 Drucken des Kopfes 
6580 - 6730 Drucken von A bis Z 

6740 - 6890 Drucken einer Diskette, eines Programmtyps und 
eines Diskettenformats 

6910 - 7090 Drucken nach Programmtypen, eines Disketten¬ 
formats nach Programmtypen 
7330 - 7340 Löschen der Datei 
7350 - 7470 Löschen einer Diskette aus der Datei 


Tabelle 1. Mit der Zeilen-Referenz finden Sie die verschiedenen 
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Bild 2. Alle Funktionen des Hauptmenüs werden auf der 
linken Bildschirmseite ständig angezeigt 

Dateien zu sortieren, Kommentarzeilen einzufügen oder 
überflüssige Dateien aus dem Directory zu löschen. Vor al¬ 
lem den letzteren Punkt sollten Sie sehr vorsichtig verwen¬ 
den, da ein vorhandener Schreibschutz ignoriert wird. Alle 
ausgeführten Änderungen werden nach Beenden des Edi- 
tierens auf die Diskette gespeichert. 

Nach Aktivieren dieser Funktion wird zunächst das Di¬ 
rectory der Diskette eingelesen. Beantworten Sie die Fra¬ 
ge, ob es sich um die richtige Diskette handelt, mit »J« (Dis¬ 
kettenname und ID werden dabei bereits angezeigt), er¬ 
scheinen alle Dateien im Anzeigefenster. 

Zum Editieren stehen neben den C 128-spezifischen Cur¬ 
sortasten (links neben den Funktionstasten) die Tasten 
<@> und <*> zur Verfügung. 

Mit den Cursortasten < t > und < 1 > werden die Datei¬ 
en nach oben oder unten gescrollt. Die Datei, die Sie bear¬ 
beiten wollen, muß neben dem symbolisierten roten Pfeil 
stehen. 

Mit < — > läßt sich der Dateiname ändern. Der neue Na¬ 
me wird automatisch in das neue Directory übertragen. Um 
weitere Dateien, deren Namen Sie nicht ändern wollen, zu 



7480 - 7530 Suche nach Datei-Einträgen 
7540 - 7690 Belegen der Datei-Einträge ohne Programmtypen 
mit Typen 

7700 - 7910 Suche nach freien Blöcken 
7920 - 8570 Änderungs- und Löschroutinen für Datei-Einträge 
8610 - 8740 Hilfsroutine ID-Bearbeitung 
8750 - 8850 Routine Block-Bearbeitung 
8860 - 8950 Rücksprungroutine bei Programmeingaben 
8960 - 9030 Druck der Programmtypenliste in Ausgabe¬ 
reihenfolge 

9040 - 9170 40-Zeichen-Hilfsbildschirm 

9180 - 9270 Hilfsroutine für Diskettenformat-Bearbeitung 

9280 - 10460 Erstellen neues Directory 

10470 - 

10580 Abfrage für anzusprechendes Laufwerk 

10590- 

10770 Laufwerkerkennung und Laufwerkdatenfestlegung 

10780- 

10890 Fehlerkanalbehandlungs-Routine 

10900 - 

10960 TRAP-Fehlerabfangsroutine 

10980- 

11100 Datei sortieren 

11110 - 

11350 Schutz-/Enschützroutine für Dateien 

11360- 

11460 Formatieren von Disketten nach gewähltem Modus 

11470- 

11500 Auslesen des Fehlerkanals von Hand 


Routinen des Programms 


übertragen, drücken Sie < — >. Alle Namen, die bearbei¬ 
tet wurden, sind in einer dunkleren Farbe dargestellt. 

Einen Kommentar beziehungsweise Trennstriche zur 
besseren Übersichtlichkeit lassen sich in das neue Directo¬ 
ry einfügen, indem Sie die Taste < @ > drücken. Mit < * > 
wird ein Dateiname gelöscht. 

Haben Sie alle Änderungen vorgenommen, wird das 
neue Directory nach einer Sicherheitsabfrage wieder auf 
Diskette gespeichert. 

Wie komfortabel das Programm ist, zeigen einige kleine 
Details, die der Programmautor an dieser Stelle berück¬ 
sichtigt hat. Die Möglichkeit, vor Übernahme in das neue 
Directory einige Dateien zu löschen, erfordert nach dem 
Speichern eine Korrektur der BAM. Um dies zu gewährlei¬ 
sten, wird programmintern folgendes geprüft: 

— Werden alle Dateien unverändert übernommen, erfolgt 
kein »Validate«. 

— Sind Dateien gelöscht worden, findet automatisch ein 
»Validate« statt. 

Benutzen Sie eine Diskette, die mit einem Speeder auf 
40 Spuren aufformatiert wurden, wird auf ein »Validate« ver¬ 



Bild 3. Dieses Untermenü ersetzt ein zusätzliches 
Disketten-Utility 

zichtet. Für den Anwender erscheint im untersten Fenster 
die Meldung: "Diskette aufformatiert auf 40 Spuren, bitte 
mit Speeder validieren." 

4. Laden / Speichern 

Wählen Sie diese Funktion, um eine bereits auf Diskette 
gespeicherte Datei zu laden. Da alle aktuell im Speicher 
des C128 vorliegenden Daten nach dem Ladevorgang ge¬ 
löscht werden, müssen Sie noch eine Sicherheitsabfrage 
bestätigen. 

Beim Speichern einer Datei können Sie einen beliebigen 
Namen verwenden. Existiert bereits eine Datei mit diesem 
Namen auf Diskette, wird sie sicherheitshalber vor dem 
Überschreiben »gescratcht«. 

5. Eingabe 

Mit der Taste <5> gelangen Sie in ein Untermenü mit 
vier Funktionen: 

- »Hand«: Geben Sie über die Tastatur einen Programmna¬ 
men, die Blockzahl, ID, Diskettenseite und Programmtyp 
ein. Üm die Eingabe zu beenden, drücken Sie bei der Frage 
nach dem Programmnamen die Taste < - > (die Pfeil- 
links-Taste links oben auf der Tastatur) und bestätigen mit 
<RETURN>. 

- »Directory«: Das Directory einer Diskette wird eingelesen 
und der erste Eintrag angezeigt. Wenn Sie den Eintrag 
nicht in die Datei übernehmen wollen, drücken Sie die Taste 
< t >. Der nächste Eintrag des Directory erscheint danach 
auf dem Bildschirm. Achtung: Bei dieser Taste handelt es 
sich nicht um die Cursortaste mit dem Hochpfeil, sondern 
um die Taste, die links neben der RESTORE-Taste liegt. 
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LISTINGS 


Haben Sie noch keine Programmtypen definiert, 
drücken Sie bei der Frage nach dem Typ die RETURN- 
Taste, um den nächsten Eintrag zu bearbeiten. 

- »Komplett«: Alle Einträge eines Directory werden mit die¬ 
ser Funktion komplett in die Datei übernommen. 

- »Typen«: Für die Eingabe der Programmtypen gibt es eine 
eigene Routine. Maximal 26 unterschiedliche Programmty¬ 
pen zur Unterscheidung der Programme lassen sich mit 
dieser Funktion definieren. Die Einträge, die Sie auf dem 
Hilfsbildschirm aufgelistet sehen, lassen sich mit diesem 
Unterpunkt jederzeit ändern oder löschen. 

Um die Eingabe zu beenden, drücken Sie die Taste 
< - > (nicht die Cursortaste). Danach legen Sie fest, in 
welcher Reihenfolge die Programmtypen beim Listen oder 
Drucken ausgegeben werden sollen. 

6. Listen / Drucken 

Vorhandene Datei-Einträge lassen sich auf dem Bild¬ 
schirm listen oder auf einem Drucker ausgeben (Bild 4). 

Für die Ausgabe auf dem Bildschirm gibt es folgende Kri¬ 
terien, die Sie mit der entsprechenden Taste anwählen. 



Bild 4. Übersichtliche Ausgabe der Daten auf Bildschirm 
oder Drucker: Viele Auswahlkriterien stehen zur Verfügung. 

<0> - Listen von A bis Z: 

Mit Drücken der entsprechenden Cursortasten des obe¬ 
ren Cursor-Blocks scrollen Sie die Datei nach oben oder 
nach unten. Festhalten der Tasten beschleunigt das Scrol¬ 
len, mit < SPACE > wird es angehalten. »Listen ab ?« er¬ 
laubt das Listen ab einem einzugebenden Eintrag. 

<1 > - Listen einer Diskette: 

Geben Sie hier die ID der Diskette ein, die Sie sich an¬ 
schauen wollen. 

<2> - Listen eines Programmtyps: 

Mit diesem Punkt lassen sich beispielsweise alle Grafik¬ 
programme listen. 

<3> - Listen nach Programmtypen: 

Haben Sie bei der Definition der Programmtypen eine 
bestimmte Reihenfolge für die Ausgabe festgelegt, erfolgt 
die Auflistung in dieser Reihenfolge. 

<4> - Listen Diskettenformats von A bis Z 
Geben Sie hier ein bestimmtes Diskettenformat ein. Auf 
dem Hilfsbildschirm sind die Formate jederzeit abrufbar. 
Als Formatkennzeichnungen gibt es < @ > für zweiseitige 
Disketten, <*> für 1581-Disketten und < + > für Disket¬ 
ten, die mit einem Speeder auf 40 Spuren aufformatiert 
wurden. 

<A> - Listen Diskettenformat nach Typen 
Das gewählte Diskettenformat (Zeichen siehe oben) wird 
mit der festgelegten Typen-Reihenfolge gelistet. 

Die Druckausgabe (Tasten <5> bis <9> und <B>) 
entspricht der Ausgabe auf dem Bildschirm. Zusätzlich 
können Sie einen Adressenkopf eingeben, der mit der Da¬ 


tei gespeichert wird. Änderungen sind jederzeit möglich. 
Neben der Adresse sind der Dateiname, der aktuelle Stand 
der Datei sowie das Datum im Druckkopf aufgeführt. 

Der Druck läßt sich jederzeit mit der Taste < — > unter¬ 
brechen. 

7. Dateibearbeitung 

Sie gelangen hier in ein Untermenü, das verschiedene 
Funktionen zur Bearbeitung der im Speicher befindlichen 
Datei bereitstellt. Diese werden mit den angegebenen Zah¬ 
lentasten aktiviert: 

<1 > - Löschen von Datei-Einträgen: 

Mit der Taste < @ > löschen Sie vorhandene Einträge. 
Solange Sie eine Datei, in der Sie Programme gelöscht ha¬ 
ben, noch nicht sortiert haben, können Sie gelöschte Ein¬ 
träge mit derselben Taste regenerieren. 

Zusätzlich lassen sich an dieser Stelle die Einträge und 
die Typen editieren. 

<2> - Löschen einer Diskette: 

Nach Eingabe einer ID wird die Diskette aus der aktuel¬ 
len Datei gelöscht. Vor einem Sortiervorgang ist es mög¬ 
lich, diese Diskette zu regenerieren. 

<3> - Belegen mit Programmtypen: 

Mit dieser Funktion lassen sich alle Einträge, bei denen 
der Programmtyp fehlt (Kennzeichnung durch »-«), mit ei¬ 
nem passenden Typ versehen. 

<4> - Suchen nach Datei-Einträgen: 

Für die Suche nach Einträgen reicht es aus, die ersten 
Buchstaben einzugeben. Einträge, die mit diesen Buchsta¬ 
ben beginnen, werden auf dem Bildschirm gelistet. 

<5> - Suchen nach freien Blocks: 

Nach Eingabe der ID und des Diskettenformats bezie¬ 
hungsweise der Diskettenseite werden die freien Blöcke 
der Diskette angezeigt. 

<6> - Datei sortieren: 

Beim iortieren werden vorher gelöschte Einträge ausge¬ 
sondert. Hat die Datei die Größe von 1000 Einträgen er¬ 
reicht, dauert der Sortiervorgang zirka sechs Minuten. Die¬ 
se Zeit läßt sich aber erheblich verkürzen, wenn Sie bereits 
bei kleinerer Dateigröße des öfteren den Sortiervorgang 
starten. 

<7> - Datei löschen: 

Mit dieser Funktion wird eine im Speicher befindliche Da¬ 
tei gelöscht. Vorsicht: Es erfolgt keine Sicherheitsabfrage! 

Diesen Punkt wählen Sie, wenn Sie eine neue Datei anle- 
gen wollen. 

8. Fehlerkanal lesen 

Im Programm ist bei vielen Funktionen bereits eine Rou¬ 
tine zur Fehlerkanal-Abfrage integriert. Vom Hauptmenü 
aus ist es jederzeit möglich, eventuelle Fehler abzufragen. 

9. Programm beenden 

Nach einer Sicherheitsabfrage erfolgt ein System-Reset. 
Die Vielzahl unterschiedlicher Funktionen zeigt, daß 
»Dispo 128« mehr ist als eine reine Diskettenverwaltung. 
Das Programm besticht nicht nur durch eine komfortable 
Handhabung. Besonders hervorzuheben ist die Eigen¬ 
schaft, daß alle wesentlichen Diskettenformate problemlos 
verarbeitet werden. 

Vor allem die kleinen Details am Rande überzeugen den 
Anwender. Wer achtet schon bei seinen Disketten auf eine 
fortlaufende und eindeutige Numerierung der IDs? Bei der 
Archivierung einer Diskettensammlung gibt es dann meist 
Probleme. Der Programmautor hat dies bedacht - die ID 
läßt sich jederzeit ändern. Vorbei sind die Zeiten, in denen 
zusätzlich ein Disketten-Utility benötigt wurde. 

Das Programm ist komplett in Basic geschrieben. Bei be¬ 
stimmten Ausgaben auf dem Bildschirm wäre eine höhere 
Geschwindigkeit wünschenswert. Auch dieses Programm 
finden Sie auf der Programmservice-Diskette zu diesem 
Sonderheft. (Hartmut Alm/ef) 
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1000 REM 

1019 REM "C4SPACE>+»*C2SPACE>ABFRAGE FUER EINGE5C 
HALTETEN 80-ZEICHENBILDSCHIRMC2SPACEJ*** 

1020 REM 

1030 IF PEEK(238)“39 THEN BEGIN : SCNCLR : CHAR , 
3,1O,"CCYAN>80 ZEICHEN-BILDSCHIRM EIMSCHALTE 
N !"i CHAR ,7,12,"<LIG.RED»BITTE EINE TASTE 
DRUECKEN !": POKE 208,0: UAIT 208,1: SCNCLR 
1040 PRINT CHR4(27)+"X": BEND 
1050 REM 

1060 REM "C4SPACE>**»C2SPACE>BILDSCHIRMAUFBAUC2SP 
ACE>**» 

1070 REM 

1080 FAST : SCNCLR : COLDR 5,16: POKE 80B,PEEKIB0 
8)-3 

1090 CHAR ,0,0,"TT: DG : Z“Z+1: CHAR ,Z,0,"£": LO 
OP WHILE Z<78: CHAR ,79,0,"1" 

1100 CHAR ,0,l,"3<2SPACE>flüfl<2SPACE,CYANID I S P 
OC2SPACE3128C2SPACE,LIG.GREEN>- DISKETTEN - 
SERVICE - PROGRAMM -C2SPACE,CYAN>1541,70,71, 
81 CLIG.GREEN,2SPACE,GREY33Ä»1S": CHAR ,79,1," 
3" 

1110 CHAR ,0,2,"a<2SPACE3Mia{2SPACE,LIG.RED> WRIT 
TEN<2SPACE3BY : CYELL0W3HARTMUT ALMC2SPACE.G 
REY33,CLIG. RED, 2SPACE34192 KALKARC2SPACE,GRE 
Y3>,CGREEN,2SPACE 3TEL.: 02824 / 3290 C2SPACE, 
GREY33flüa": CHAR ,79,2,"3" 

“25 TO 78: CHAR ,Z,3,"£": NEXT : CHAR ,79,3, 

"ff" 

1130 CHAR ,0,4,"S 1. CYELL0W3DIRECTORY EINLESEN C 
GREY3J3": CHAR ,79,4,"3" 

1140 CHAR ,0,5, "a 2. CLIG.GREEN>DISKETTEN BEFEHLE 
C2SPACE,GREY33a": CHAR ,79,5,"3" 

1150 CHAR ,0,6,"3 3. CPURPLE3NEUES DIRECTORYC4SPA 
CE,GREY333": CHAR ,79,6,"3” 

1160 CHAR ,0,7,"3 4. CLIG-RED3LADEN / SPEICHERND 
SPACE,6REY333": CHAR ,79,7,"3" 

1170 CHAR ,0,8,"3 5. CGREEN3E I N G A B E NC4SPAC 
E,GREY3I3”: CHAR ,79,8,"3" 


<3CD> 

<3KE> 


<1AN> 

<900> 

<2C9> 

<2KA> 

<2S8> 

<UST> 


<8DT> 

<DT1 > 

<R97> 

<98B> 

<AEP> 

<VM6> 

<UEL> 

<FRQ> 


OTL 



1180 CHAR ,0,9,"3 6. CRED3LISTEN / DRUCKENC3SPACE 

.GREY333": CHAR ,79,9,"3" <010 

1190 CHAR ,0,10,"3 7. CGREY13DATEI BEARBEITÜNGC2S 

PACE,GREY333": CHAR ,79,10,“3" <MSD> 

1200 CHAR ,0,11,"3 8. CORANGE3FEHLERKANAL LESENC2 

SPACE,GREY3>3": CHAR ,79,11,"3" <7VN> 

1210 CHAR ,0,12,"3 0. CBRDWN3PR0GRAMM BEENDENC3SP 

ACE,GREY333": CHAR ,79,12,"3" <R6A> 

1220 CHAR ,0,13, "3 CYELLOWI+. CWHITEJZURUECK ZUM 

MENUEC2SPACE,GREY3J3": CHAR ,79,13,"3" <A3E> 

,79,14,“3" <FCD> 

1240 CHAR ,0,15,"3 CGREEN,RVSONIDATEI:CRVOFF.GREY 

3J": CHAR ,24,15,"3": CHAR ,79,15,"3" <E2T> 

1250 CHAR ,0,16,"3 CYELLOW,RVSONJSTAND:CRVOFF.BSP 
ACE,GREY2J(1000)CGREY3>": CHAR ,24,16,“3“: C 
HAR ,79,16, "3" <AOD> 

1260 CHAR ,0,17,"3": CHAR ,24,17,"3": CHAR ,79,17 

,"3" <EOF> 

1270 CHAR ,0,18,"3 CCYAN,RVS0NJM0DUSC3SPACE>:CRVO 

FF,GREY3>": CHAR ,24,18,"3": CHAR ,79,18,"3" <J2P> 

1280 CHAR ,0,19, “3 CLIG.RED,RVSON>LAUFWERK: CRVOFF 

,BREY3>"^ CHAR ,24,19,"3": CHAR ,79,19,"3" <BK3> 

Z-25 TO 78: CHAR ,7,20,"£": NEXT : CHAR ,79, 

20, "ff" <JOJ> 

1300 CHAR ,0,21,"3": CHAR ,79, 21, "3" <DA1> 

1310 CHAR ,0,22, "T 1 : Z»0: DO : Z=Z+I: CHAR ,Z,22, 

LOOP WHILE Z<78: CHAR ,79,22,"ff" <LA1> 

1320 WINDOW 25,4,78,19,1: CHAR ,9,7,“CLIG.RED1BIT 
TE EINENC2SPACE,LIB.GREENJM OMEN TC2SPACE 
,LIG. RED>GEDULD \ CGREY3>" <ET7> 

1330 REM <2C9> 

1340 REM "C4SPACE>*** C2SPACE>DIMENSIONIERUNG C2SPA 

CE>*»« <3KE> 

1350 REM <3SF> 

1360 TRAP 10900: VOL 15: TEMPO 255: D4="-" <VA9> 

1370 DIM G*(1100),N4(290>,B4(290>,T4(26),LG(1100) 

,RG<1100) <6R0> 

1380 REM <0K2> 

1390 REM "C4SPACE}**«C2SPACE>ERZEUGUNG VON LEERST 

RINGS ZUM LOESCHENC2SPACET*** <0S3> 

1400 REM <144> 

1410 L104=" C10SPACE}" <IMK> 

1420 L204=L104+L10t: L3O4=L204+L104: L404=L204+L2 

04: L504=L404+L104 <GC7> 

1430 REM <1S7> 

1440 REM "C4SPACE )*#•*■ C2SPACEIERZEUGUNG VON STRING 

SC2SPACE1A BIS ZC2SPACEI*** <040> 

1450 REM <0C1> 

1460 N=26: 1=0: DO : 1=1+1: G4II>=CHR4(64+1): LOO 

P WHILE I<N <J1C> 

147W , - 26: 1=0: DO : 1 = 1+1: T4(I)=CHR*(45): LOOP 

WHILE I<M <9KE> 

1480 REM "C4SPACE>++*C2SPACE3ADRESSE UND TYPENAUS 

GABEREIHENFOLGE C2SPACE>*++ <340 

1490 1=0: DO : 1=1+1: X*(I)=CHR4(45): LOOP WHILE 

I<4: R4=CHR4(45) <86B> 

1500 REM <1K6> 

1510 REM "C4SPACE>+**C2SPACE>AUSGABE VON DATEI UN 

D STANDC2SPACEI*«» <1S7> 

1520 REM <144> 

1530 WINDOW 9,15,23,15,1: PRINT “C6REY3>"sD4;: WI 
NDOW 8,16,15,16,1: PRINT CN; : GOSUB 9040: IF 
D=1 THEN RETURN <HSU> 

1540 REM <0K2> 

1550 REM “C4SPACE >++* C2SPACE >TASTATURABFRAGE C2SPA 

CE>»** <0S3> 

1560 REM <040> 

1570 PLAY "ACACACACAC": POKE 206,0 <AAS> 

1580 WINDOW 25,4,78,19,1: CHAR ,11,7,"CGREY2IHILF 

E AUF 40 ZEICHEN BILDSCHIRMCGREY3>“ <BCS> 

1590 GOSUB 1620: WINDOW 2,21,78,21,1: WINDOW 25,4 

,78,19,1 <D7N> 

1600 ON T GOTO 1B80.2000,9280,2790,3330,4610,7150 

,11470,1580,1790 <B32> 

1610 GOTO 1580 <20M> 

1620 SLOW : T“0: GET KEY A4: PLAY "A": REM "C4SPA 
CE>#** C2SPACEIHAUPTABFRAGE FUER TASTATURC2SP 
ACEJ+»* <9UU> 


1630 

IF 

A*-"l" 

THEN 

T-l 

<JIJ> 

1640 

IF 

A*-"2" 

THEN 

T-2 

< JEH> 

1650 

IF 

A*-"3" 

THEN 

T-3 

< JAH> 

1660 

IF 

A*-"4" 

THEN 

T«4 

<J6J> 

1670 

IF 

A*«"5" 

THEN 

T-5 

<J2J> 

1680 

IF 

A<™"6" 

THEN 

T-6 

< IUL> 

1690 

IF 

A*-"7" 

THEN 

T-7 

<IQL> 

1700 

IF 

A*-"8" 

THEN 

T»8 

<JMN> 

1710 

IF 

A*»"9" 

THEN 

T-9 

<JIN> 

1720 

IF 

A*-"0" 

THEN 

T-l© 

<PTS> 

1730 

IF 

A*""0" 

THEN 

T-ll 

< 1PT> 

1740 

IF 

A*- M A" 

THEN 

T-l 2 

<S5R> 

1750 

IF 

A*="B" 

THEN 

T—13 

<SHO> 

1760 

IF 

A*= 

THEN 

1580 

<09L> 

1770 

IF 


THEN 

WINDOW 0,0,79,23,1: SYS 51413 



: PRINT “CGREY3IBITTE ZUERST EINMAL CLIG.RED 
>RUN/STOP - RESTORE CGREY3JDRUECKEN !!!": PO 
KE 808,0: STOP : REM "C4SPACE)***C2SPACE>PRO 
GRAMM - NOT - STOPC2SPACE>*»« <2RC> 

1780 FAST : RETURN <0U3> 

1790 REM <2SB> 

1800 REM “C4SPACE>***C2SPACE>PR0GRAMM BEENDENC2SP 

ACE>»+» <74S> 

Listing 1. Geben Sie »Dispo 128« bitte mit dem Checksum¬ 
mer (Seite 158) ein. 
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LISTINGS 


1810 

REM 

<7CT> 

2380 

POKE 21,2: CHAR ,5,3,"CCYAN>NEUER NAME:“,1: 


1B20 

WINDOW 2,21,78,21,1: PRINT "<LIG.GREEN>SOLL 



INPUT "(2SPACE,GREY3>";N*: PLAY "A": IF LEFT 



DAS";: SYS 51413: PRINT "CLIG.RED> PROGRAMM" 



*<N*,l)="+" THEN 2710 

<27G> 


SYS 51420: PRINT "(LIG.GREEN> WIRKLICH";: 


2390 

N*=LEFT*(N*,16) 

<IVS> 


SYS 51413: PRINT "(LIG.RED» BENDET":: SYS 5 


2400 

IF LEN <N*) <16 THEN N*<=N*+CHR* (160) : GOTO 240 



1428: PRINT “ <LIS. GREEN) WERDEN' 1 : 

<RVB> 


0 

<2IG> 

1030 

SYS 51413: PRINT "(LIG.RED> ( J / N )C2SPACE 


2410 

IF K*="<" THEN PRINT»1,"M—W" CHR*(LB> CHR*(H 



SYS 51420 

<EB7> 


B) CHR*(1) CHR*(ID): REM "(2SPACE1( A / D ) 

<DIA> 

1840 

POKE 206,0: GET KEY fl*: PLAY "fl“ 

<SBG> 

2420 

PRINT41,"B-P"j2j ZZ 

<U1V> 

1850 

IF A*-"J" THEN PLAY "CflCflCACfl": SLEEP 1: SYS 


2430 

PRINTB2,N*;: CHAR ,1,15,L50*: GOTO 2710 

<D2M> 


65341 

<NS7> 

2440 

REM 

<340 

1860 

IF fl*="N" THEN WINDDW 2,21,76,21,1: GOTO 158 


2450 

REM "(4SPACE >**#(2SPACE >I D(2SPACE»AENDERN(2 



0 

<VUE> 


SPACE>*** 

<3CD> 

1870 

GOTO 1840 

<100> 

2460 

REM 

<3KE> 

1880 

REM 

<54K> 

2470 

IF K*-"<" THEN CHAR ,4,15,"(LIG.RED»SCHREIBS 


1890 

REM "<4SPACEJ.»*(2SPACEJDIRECT0RY EINLESEROU 



CHUTZ <LIG.GREEN»- ZUM CYELLOWJ-I-D- (LIG.GR 



TINE(2SPACE>*** 

<5CL> 


EEN»AENDERN AUFGEHOBEN !“ 

<D63> 

1900 

REM 

<7KU> 

2480 

POKE 21,2: CHAR ,5,3,"(YELLOW»NEUE I D :",1: 


1910 

GOSUB 10470: WINDOW 25,4,78,19,1: POKE 229,P 



INPUT "<2SPACE,GREY3»"iI*: PLAY "A": IF LEF 



EEK (229) +1: Z3*-CHR*(0)s Z—1: X—1: COLOR 5 



T*(I*,l)-"+" THEN 2710 

< 1P8> 


,11 

<NRU> 

2490 

I*=LEFT*(I*,3> 

<QC2> 

1920 

OPEN 1,L,15: OPEN 2,L,0,"*" 

<2HD> 

2500 

IF LEN<I*><4 THEN I*-I*+CHR*(160): GOTO 250© 

<TIJ> 

1930 

GET #2,ZI»,ZI* 

<MQ7> 

2510 

I*“I*+K*: REM "(4SPACE»( - ) 

< ASI > 

1940 

GET #2,Z1*,Z1*,Z4*,Z5*: X-X+l: Z-Z+l: IF ST 


2520 

IF K*."<" THEN PRINTB1,"M-W" CHR*(LB) CHR*(H 



THEN CLOSE 2: CLOSE 1: PLAY "A": PRINT TABC1 



B) CHR*(1) CHR*(ID): REM “C2SPACE»! A / D ) 

<D2A> 


5)"(YELLOW»**.***C2SPACE»E N D E(2SPACE»**** 


2536 

PRINT»1,"B-P";2;ZX 

<T9I> 


**": POKE 208,0: WAIT 208,1: GOTO 1580 

<RMJ > 

2540 

PRINT»2,I*,- : CHAR ,1,15,L50*: GOTO 2710 

<4JU> 

1950 

IF Z>0 THEN COLOR 5,4 

<6G7> 

2550 

REM 

<3SF> 

I960 

PRINT TAB(8);Z;TAB(13);":“:ASC(Z4*+Z3*)+256* 


2560 

REM "(4SPACE»***(2SPACE»DISKETTE SCHUETZENC2 



ASC(Z5*+Z3*>; 

<JJ8> 


SPACE>*** 

<340 

1970 

GET #2,Z1*,Z2*: IF ZI* THEN PRINT Z1*Z2*;j G 


2570 

REM 

<3CD> 


OTO 1970 

<SUD> 

2580 

SYS 51413: CHAR ,10,3,"(LIG.RED5DISKETTE <LI 


1980 

PRINT : IF X=12 THEN PLAY "A": PRINT TA8(15) 



G.GREEN»- WIRD GESCHUETZT 1": SYS 51420: SLE 



"( YELLOW,DOWN>BITTE EINE TASTE X=0: PO 



EP 3 

<HE1 > 


KE 208,0: WAIT 206,1: PLAY "A": SCNCLR : IF 


2590 

PRINT»1,"B-P";2;2: PRINT*2,CHR*<83)i: REM "( 



PEEK(212)=57 THEN CLOSE 2: CLOSE 1: GOTO 158 



3SPACE»( S ) 

<CKJ> 


0 

<6E7> 

2600 

PRINT*1,“B-P”;2:ZY: PRINT*2,CHR*(60);: REM " 


1990 

IF ST=0 THEN 1940 

<800> 


(2SPACEJI < ) 

<9D0> 

2000 

REM 

<04O> 

26I0 

CHAR ,10,3,L4OS: GOTO 2710 

<L6B> 

2010 

REM "(4SPACE>***(2SPACE>DISKETTENBEFEHLE(2SP 


2620 

REM 

<3KE> 


ACE>*** 

<0C1> 

263© 

REM "C4SPACEJ*** DISKETTE ENTSCHUETZEN(2SPAC 


2O20 

REM 

<0K2> 


E>#** 

<3SF> 

2030 

CHAR ,5,1,"<LIG.RED>DISKETTE:",1 

<4V5> 

2640 

REM 

<248> 

2040 

CHAR ,10,5,"(GREY3J1. :(2SPACE,LIG.RED>DISKE 


2650 

SYS 51413: CHAR ,10,3,"(LIG.REDJDISKETTE (LI 



TTEN-BEFEHL SENDEN“ 

<5U6> 


G.GREEN»- WIRD ENTSCHUETZT !": SYS 51420: SL 


2050 

CHAR ,10,6,"(GREY3>2. :(2SPACE,RED>FORMATIER 



EEP 3 

<6SE> 


EN <GREY3>— 41,71,81 MODUS" 

<COA> 

2660 

PRINT#1,"M-W" CHR*(LB) CHR*(HB) CHR*(1) CHR* 


2060 

CHAR ,10,7,"CGREY3>3. :<2SPACE,CYAN>NAMEN(2S 



(ID): REM " ( A / D ) 

<9BK> 


PACE >AENDERN" 

<KF4> 

2670 

IF 5=18 THEN PRINT#1,"B-P";2;2: PRINT#2,CHR* 


2070 

CHAR ,10,8,"(GREY3J4. : C2SPACE,YELLOW >-1-D-( 



(65)j: REM "(3SPACE»( A ) 

<1ME> 


2SPACE >AENDERN (2SPACE,GREY3>-(2SPACE>(...)" 

<M38> 

26B0 

IF s=40 THEN PRINTttl,"B-P";2j2: PRINT*2,CHR* 


2080 

CHAR ,10,9,"(GREY3>5. :(2SPACE,GREEN>DISC(2S 



' A R)s: REM "(3SPACEX D ) 

<S3P> 


PACEJSCHUETZEN (GREY3»-(2SPACE» C < )“ 

<65V> 

2690 “-NT#1,"B—P":2;ZY: PRINT*2,CHR* 145) ; : REM “ 


2090 

CHAR ,10,10,"(GREY3J6. :<2SPACE,LIG.GREENJDI 



<12SPACE>( - ) 

<044> 


SC <2SPACE >ENTSCH--<2SPACE,GREY3 >-<2SPACE >( - 


2700 

CHAR ,10,3,L40* 

<00E> 


) " 

<1QE> 

2710 

REM 

<3SF> 

2100 

CHAR ,10,11,"CGREY3»7- :(2SPACE,LIG.BLUE>DAT 


2720 

REM "(4SPACE3*** C2SPACEJSCHLIESS R0UTINE(2SP 



EI SCHUETZEN (GREY3>-(2SPACE>( < >" 

<VIA> 


ACE>*** 

<340 

2110 

CHAR ,10,12,"<GREY3>8. :(2SPACE,BLUE>DATEI E 


2730 

REM 

<3CD> 


NTSCH.—" 

<GAH> 

2740 

IF T=9 THEN 2760 

<EDQ> 

2120 

CHAR ,10,13,"(6REY3>9. :<2SPACE,0RANGE>DISKE 


2750 

PRINT*1,"U2";2;0;S;O: CHAR ,5,3,L40* 

<1QM> 


TTE EINLESEN" 

< 0I6> 

2760 

IF T=7 OR T=8 THEN RETURN 

<9F6> 

2138 

CHAR ,4,15,"CGREY2 »BEI AENDERUNGEN ENTSCHUET 


2770 

CHAR ,4,15,"CGREY2>BEI AENDERUNGEN ENTSCHUET 



ZEN NICHT NOTWENDIG !" 

< 106/ 


ZEN NICHT NOTWENDIG !" 

<H06> 

2140 

GOSUB 1620: IF T<1 OR T>9 THEN T=0: GOTO 214 


2780 

CLOSE 2: CLOSE 1: T~9: POKE 21,0: GOTO 2190 

<11Q> 


0 

<3D0> 

2790 

REM 

<1S7> 

2150 

H-l: IF T=2 THEN 11360: ELSE GOSUB 10470: WI 


28O0 

REM "<4SPACEJ***C2SPACE»LADEN UND ABSPEICHER 



NDOW 25,4,78,19,0 

<RVE> 


N(2SPACE >*** 

<44G> 

2160 

REM 

<144> 

2810 

REM 

<4CH> 

2170 

REM "(4SPACE>***(2SPACE>EINLESER0UTINE FUER 


2820 

CHAR ,9,1,"(LIG.GREEN>LADEN UND SPEICHERN EI 



NAME UND ID(2SPACE>*** 

<1C5> 


NER DATEI",1 

< I IE> 

2180 

REM 

<2KA> 

2830 

CHAR ,10,4,"(GREY3J1. : (LIG.RED»LADEN(5SPAC 


2190 

POKE 206,0: OPEN 1,L,15,“I0": OPEN 2,L,2,"*“ 



E>- EINER DATEI" 

<C9D> 


: PRINT*!,"Ul" ! 2 i 0;S;0 

<391 > 

2840 

CHAR ,10,6,"(GREY3»2. : (YELLOW»SPEICHERN - 


2200 

CHAR ,16,1,"<CYAN>" 

<LL1> 


EINER DATEI" 

<BCS> 

2210 

PRINT*1,"B-P"j2;ZZ: FOR Z“1 TO 16: GET »2,N* 


2850 

POKE 208,0: GOSUB 1620: IF T<1 OR T>2 THEN 2 



: PRINT Nt;: NEXT 

<V4K> 


850 

<F4L> 

2220 

PRINT "(GRE Y3,2SPACE>,<2SPACE,YELL0W>"; 

<5 CO 

2860 

WINDOW 25,4,7B,19,0: ON T GOTO 2880,3110 

<74E> 

2230 

PRINT#l,"B-P" i 2 ! ZX: FOR Z-l TO 5: BET *2,1*: 


2870 

GOTO 2850 

< 18D> 


PRINT I*j: NEXT 

< DOA> 

2880 

REM 

<640 

2240 

PRINT*1,"B-P";2;2: GET »2,1* 

<PLK> 

2890 

REM "(4SPACE »...(2SPACE »DATEI LADEN(2SPACE»» 


2250 

IF I*=CHR*(ID) THEN K*-CHR*(45>: ELSE K*-CHR 



*» 

<6 CP> 


*(60) 

<IOL> 

2900 

REM 

<4KI> 

2260 

ON T GOTO 2280,11360,2340,2440,2550,2620,111 


2910 

IF CN-0 THEN 2980 

<LGP> 


10,11110,2270 

<PQ0> 

2920 

CHAR ,3,9,"(LIG.RED»ACHTUNG ■ -(CYAN» DATEN 


2270 

CLOSE 2: CLOSE 1: PLAY "ACACAC”: GOTO 2140 

< AIH> 


IM SPEICHER WERDEN GELOESCHT !" 

<V0V> 

2280 

REM 

<340 

2930 

CHAR ,10,11,"NEUE DATEI LADEN ( (LIG.RED5J / 


2290 

REM "I4SPACE »***(2SPACE >DISKETTENBEFEHL SEND 



N(CYAN» )(2SPACEJ?" 

<G7D> 


EN (2SPACE >*** 

<3CD> 

2940 

POKE 20B,0: GET KEY A*: PLAY "A" 

< IBG> 

2300 

REM 

<1K6> 

2950 

IF A*-"3" THEN CLR : FAST : D-l: GOSUB 1330: 


2310 

SYS 51413: CHAR ,2,3,"(LIG.GREEN»BEFEHL:",1: 



WINDOW 25,4,78,19,0: CHAR ,l,9,L50t: CHAR , 



SYS 51420: POKE 842,34: POKE 208,1 

<5VB> 


1,11,L50*: PLAY "A": GOTO 2980 

<1D0> 

232® 

INPUT " (LIG. RED>"; C*: IF LEFT* (C*, 1) =" ♦-" OR 


2960 

IF A*=“N" THEN CHAR ,1,9,L50*: CHAR ,1,11,L5 



LEFT*(C*,1>="N" THEN CHAR ,2,3,L50t: GOTO 2 



0*: GOTO 2850 

<QFQ» 


270 

<CEA> 

2970 

GOTO 2940 

<10E> 

2330 

OPEN 15,L,15,+C*: CLOSE 15: GOSUB 10B20: CHA 


2980 

CHAR ,8,9,"(LIG.REDJWELCHE DATEI SOLL GELADE 



R ,2,3,L5©*: GOTO 2270 

<B7L> 


N WERDEN CHAR ,13,11: INPUT " CBREY3»":D 


2340 

REM 

<0K2> 


* 

<T88> 

2350 

REM "C4SPACE»*** C2SPACEJNAMEN AENDERN{2SPACE 


2990 

PLAY "A": IF D*=”e" THEN CHAR ,1,9,L50*: CHA 



>*** 

< 0S3> 


R ,1,11,L50*: GOTO 2850 

<6C9> 

2360 

REM 

<040> 

3000 

GOSUB 10470: WINDOW 25,4,78,19,0 

< VNJ > 

2370 

IF K*="<" THEN CHAR ,4,15,"(LIG.RED)SCHREIES 


3010 

OPEN 1,L,0,D*+“,S,R": CLDSE 1 

<BJT> 


CHUTZ (LIG.BREEN»- ZUM (CYANJNAMEN (LIG. GREE 


302O 

GOSUB 10820: WINDOW 25,4,78,19,0 

<LGR> 


N>AENDERN AUFGEHOBEN !" 

*'8B2> 

3030 

OPEN 1,L,0,D*+",S,R" 

<OLM> 
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LISTINGS 


304© 

XNPUT«1,N 

<BGK> 

3590 

CHAR ,36,5,5*: CHAR ,0,7,L50* 

<T01 > 

3050 

INPUT#1,M 

<BCL> 

3600 

T*="": CHAR ,4,7,"{GREY2JHILFE AUF 40 Z.BILD 


3060 

INPUT#1,R* 

<MH6> 


SCHIRM(2SPACE,RVSON,LIG.RED) TYP CRV0FF,2SPA 


3070 

1=0: DO : 1=1+1: INPUT#1,G*(I>: LOOP WHILE I 



CE,GREY3>": SYS 51413: PRINT "?": SYS 51420: 



<N 

<MQF> 


POKE 208,0: SLOW : GET KEY T*: PLAY "A": FA 


3000 

1=0: DO : 1 = 1 + 1: INPUTtJl ,T* (I > : LOOP WHILE I 



ST : GOSUB 8860 

<9RV> 


<M 

< JIT> 

3610 

A=ASC(T*>: IF 0=13 QR A=32 THEN T*=“-": A=0: 


3090 

1=0! DO s I«I+lj INPUTttl.Xtll): LOOP WHILE I 



GOTO 3630 

<P0Q> 


<4 

<VJD> 

3620 

FOR X=1 TO LENIRt): IF Tt=MID»IRI,X,1) THEN 


3100 

CLOSE 1: CN=N-26: GOTO 1500 

<F5K> 


363«: ELSE NEXT : SOUND 1,350,3«: CHAR ,3,’7, 


3110 

REM 

< 1S7> 


"(LIG.RED1PR0GRAMMTVP <LIG.GREEN5ERST IN DER 


3120 

REM "(4SPACE)***(2SPACE)DATEI ABSPEICHERNC2S 



TYPENLISTE EINTRAGEN(2SPACE)": SLEEP 3: CHA 



PACE)*** 

<144> 


R ,3,7,L50*: GOTO 3600 

<H51 > 

3130 

REM 

<IC5> 

3630 

W=7-LENIS»): FOR 1-1 TO W: T»=CHR*132)TT»: N ■ 


3140 

CHAR ,5,9,"(YELLOW)WELCHE DATEI SOLL ABGESPE 



EXT : CHAR ,36,5,S*+T*: CHAR ,@,7,L50* 

<L0C> 


ICHERT WERDEN -''! CHAR ,13,11s INPUT “ {GREY 


3640 

CHAR ,7,7,"(LIG.GREEN)EINGABE ÜBERNEHMEN(3SP 



3> ,, i Dt: PLAY "A" 

<P46> 


ACEX «LIG.RED) J / N<LIG.GREEN) ) «3SPACE)?«G 


3150 

IF D»="*-“ THEN CHAR ,1,9,L50»: CHAR ,1,11,L5 



REY3)“ 

<5QU> 


«t! CHAR ,l,13,L50*i WINDOW 1,21,78,21,1! GO 


3650 

POKE 208,0: GET KEY A*: PLAY "A" 

<9BG> 


TO 2850 

<R93> 

3660 

IF A*="J" THEN 3690 

<S9G> 

3160 

GOSUB 10470: WINDOW 25,4,78,IV O 

<VJJ> 

3670 

IF A*="N" THEN CHAR ,0,5,L5«t: CHAR ,0,7,L50 


3170 

OPEN 1 ,L, 1 ,D*+'\S,W' • CLOSE 1 

<FFS> 


*: GOTO 3510 

< 1 NK> 

3180 

GOSUB i0820: WINDOW 25,4,70,19,0: IF EN-63 T 


3680 

GOTO 3650 

< 2GL > 


HEN BEGIN 

<DOH> 

3690 

CN-CN-M: N-N+l: Gt IN) =N*-*B»*" {3SPACE>"+1*+" 


3190 

CHAR ,2,13,”CCYAN>SOLL DIE DATEI UEBERSCHRIE 



"♦S*»Tt: CHOR ,0,7,L50t 

<HGB> 


BEN WERDEN ( TLIG.REDW /NICYANl > <2SPACE>?” 

<2PI > 

3700 

CHAR ,0,5: PRINT CN TAB(7)G*(N)+CHR*(27)+"V" 


320O 

POKE 208,0: GET KEY A* 

<AJ2> 


: WINDOW 8,16,15,16,1: PRINT CN;: WINDOW 27, 


321« 

IF A*="J“ THEN BEGIN : CHAR ,l,13,L50t: CHAR 



7,75,15,0: PLAY "A": IF N>108O THEN WINDOW 2 



,7,13,"CCYAN)DATEI (LIG.RED)": PRINT D*;"(C 



5,4,78,19,1: GOTO 3360 

<ORE> 


YAN) WIRD UEBERSCHRIEBEN WINDOW 2,21,70, 


3710 

GOTO 3510 

< ©0N> 


21,1: CHAR ,0,0,"ILIG.RED1STATUS(25PACEJ!”,1 


3720 

REM 

<24G> 


! PflINT ”;GREY3> 0 {LIG.REDJOK(GREY3) 0I2SPA 


373@ 

REM "«4SPACE)»*«{2SP0CE)EINGABE VOM DIRECTOR 



CE>0"; 

< 19H> 


Y UND DISKETTE KOMPLETTC2SPACE)*** 

<2C9> 

3220 

GOTO 3250: BEND 

<FGD> 

3740 

REM 

<3KE> 

323« 

IF A»="N" THEN CHAR ,l,9,L50t: CHAR ,1,11,L5 


3750 

REM "{4SPACE)**.«2SPACE)DIRECT0RY EINLESEROU 



0»: CHAR ,1,13,L50*: GOTO 3140 

<U53> 


TINE(2SPACE >*** 

<3SF> 

3240 

GOTO 3200: BEND 

<NHD> 

3760 

REM 

<340 

3250 

M=26: H-l: OPEN 15,L,15,"S:"+D*: CLOSE 15: G 


3770 

IF A*="D" THEN CHAR ,6,14," (GREY1)EINGABE: (R 



OSUB 10820 

<T04> 


VOFF)",1: CHOR ,11,12,"(LIG.RED>HÜ{GREY3) :{ 


3260 

OPEN 1,L,1,D*+",S,W" 

<RDR> 


2SPACE,GREY2)EINEN EINTRAG WEITERLISTEN" 

<5KN> 

3270 

PRINTttl,N 

<EB4> 

3780 

GOSUB 10470: WINDOW 27,7,75,15,0: Z=-l: OPEN 


3280 

PRINTÄl.M 

<9K5> 


1,L,0,: GET #1,Z1*,Z2* 

<OAC> 

3290 

PRINTttl,RS 

<H06> 

3790 

GET #1,Z1 *,Z2* 

<6I7> 

3300 

I=0: DO : 1=1+1: PRINTttl ,G* (I): LOOP WHILE I 


38O0 

GET #1,Z1*,Z2* 

<U65> 


<N 

<QFF> 

3810 

X=0: Z=Z+1: B*(Z)=""s N*(Z)= U " 

< RD4 > 

3310 

1=0: DO : 1=1+1: PRINT#1,T*(I): LOOP WHILE I 


3820 

IF Zl*<>"" THEN X=ASC(ZI*) 

<2DV> 

3320 

<M 

<UVT> 

3830 

IF Z2*<>"" THEN X=X+ASC(Z2*)*256 

< JFT> 

1=0: DO : 1=1+1: PRINT#1,X*(I): LOOP WHILE I 


•>840 

E** (Z ) —MID* (STR* (X) ,2) : B*—B*(Z): GOSUB 8750: 



<4: CLOSE 1: CLOSE 15: GOTO 1560 

<45L> 


B»IZ)=Bt: B»="" 

<HC9> 

3330 

REM 

<0C1> 

3850 

GET #1,Z2*: IF ST<>0 THEN 3950 

<ERE> 

3340 

REM " (4SPACE>***(2SPACE)PR0GRAMM(2SPACE)E I 


3860 

IF Z2*< >CHR*(34) THEN 3850 

<P8V> 

3350 

3360 

N G A B E (2SPACE)*** 

Säg o 

387 ; C CC T #1,Z2*: IF Z2*< >CHR* (34) THEN N*(Z>=N*(Z 


REM 

IF CN>1000 THEN BEGIN : SOUND 1,350,30: WIND 

<13T> 

3880 

uuiu OD/v 

IF LEN(N*(Z))<19 THEN N*(Z)=N*(Z)+CHR*(32): 

<K74> 


OW 2,21,78,21,1: CHAR ,2,0: SYS 51413: PRINT 



GOTO 3880 

<35B> 


"<LIG.GREEN>DATEI <LIG.RED>IST VOLLSTAENDIG 


3890 

C*="": GET **1,Z2*: IF Z2*=CHR*(32) THEN 3890 

<GHK> 


BELEGT !(2SPACE)KEINE(2SPACE,GREY1>E ING 


39O0 

C*=C*+Z2*: GET #1,Z2*: IF Z2*<> H,, THEN 3900 

<KL0> 


A B E N C2SPACE,LIG.RED5MEHR MOEGLICH 

<ERJ > 

3910 

IF Z=0 THEN I*=LEFT*(C*,3): GOSUB 861O 

< 1BP> 

3370 

SYS 51420: GOTO 1580: BEND 

<D61> 

3920 

IF LEFT*(C*,3)="DEL" OR LEFT*(C«,3)="USR“ TH 


3380 

CHAR ,3,1,"(LIG.GREENJNR. (GREY3J,ILIG.RED) 



EN 1=2-U GOTO 3940 

< 1 J3> 


PROGRAMM (9SPACE,GREY3 >,CRED > BL. (GREY3>,( YE 


3930 

GOSUB 4000 

<RNP> 


LLOW) ID/SEITE (GREY3),(GREYl> TYP" 

<RP2> 

3940 

IF ST=0 THEN 3790 

<UD0> 

3390 

SYS 51413: CHAR ,6,14,"{RVSON,GREYI)EINGABE: 


3950 

CLOSE 1: FOR 1=0 TO Z: B*(I)= M ": N*(I)="": N 



{RVOFF?",1: SYS 5142«: CHAR ,16,14,"{RVSON,L 



EXT : PLAY "ACACAC": CHAR ,0,7,L50*: IF Z=1 



IG.RED)H(RV0FF,GREY3)AND,(LIG.RED) (RVSON>D< 



THEN CHAR ,ö,5,L40* 

<CUE> 


RVOFF,GREY3 3IRECTORY,(LIG.RED) (RVSON)K(RVOF 


3960 

C*="": WINDOW 25,4,7B,19,0: CHAR ,0,12,L50*: 



F,GREY3J0MPLETT,{LIG.RED) (RVSON)T(RVOFF,GRE 



GOTO 3390 

<CCI> 


Y3>YPEN" 

<COU> 

3970 

REM 

<4CH> 

3400 

POKE 208,0: GET KEY A*: PLAY "A": REM "(3SPA 


3980 

REM "C4SPACE)***(2SPACE)BEARBEITUNGS ROUTINE 



CE >***(2SPACE>PRG. EINGABEART ABFRAGE(2SPACE 



(2SPACE)*** 

<7KU> 


>*** 

<NRS> 

3990 

REM 

<7SV> 

3410 

IF A*="H" THEN 3470 

<UHP> 

4000 

IF Z=0 THEN BEGIN : CHAR ,0,5,L50*: CHAR ,4, 


3420 

IF A»="D" THEN K=0: GOTO 3720 

<2QU> 


5,"(LIG.RED>DISK:",1: PRINT " (GREEN)";N*(Z) 


3430 

IF AS="K" THEN K=l: GOTO 3720 

<12H> 


;" (4SPACE), ";I* 

<LVG> 

3440 

IF A*»"T" THEN 4210 

<T9A> 

4010 

CHOR ,4,7,"{LIG.GREEN)DISKETTE EINLESEN(2SPA 


3450 

IF A*="+" THEN 1580 

<R10> 


CE)": SYS 51413: PRINT "(2SPACE.LIG.GREEN)I 


3460 

GOTO 34O0 

<0BK> 


(LIG.RED)J / N (LIG.GREEN))(2SPACE)?": SYS 5 


3470 

REM 

<2SB> 


1420 

<SUJ> 

3480 

REM "(5SPACE)***(2SPACE>PROGRAMMEINGABE VON 


4020 

POKE 208,0: GET KEY A* 

<BGA> 


HAND(2SPACE)*** 

< 144> 

4030 

IF A*»"J" THEN CHAR ,0,7,L50*: PLAY "A": GOT 


3490 

REM 

<1C5> 


0 4060 

<MOH) 

3500 

CHAR ,6,14,"(GREY1>EINGABE: {RVOFF)",1s WINDO 


4040 

IF A»="N" THEN CHAR ,0,5,L5«»: CHAR ,«,7,L65 



W 27,7,78,15,0 

<GBR> 


*: GOTO 3950 

<3VR> 

3510 

N*-"": CHAR ,4,7,"(LIG.RED)PRDGRAMM ",1: INP 


4050 

GOTO 4020 

< 002 > 


UT "C2SPACE,GREY3>";N»: PLAY "A": IF LENIN») 


4060 

IF ASCIQ») = 12Q THEN S*="128"'! RETURN 

<GJH> 


<1 OR LENIN»)>16 THEN CHAR ,9,7,L40*i GOTO 3 


4070 

IF M*="1581" THEN S*=M*: RETURN 

<P2K> 


510 

<AHJ> 

408O 

CHAR ,12,7," (LIG.RED)WELCHE(2SPACE,RVSON,LIG 


3520 

IF LEN(N*><19 THEN N*«N*+CHR*(32): GOTO 3520 

<Q9K> 


■RED) SEITE (RVOFF,2SPACE,GREY3)": SLOW : IN 


3530 

GOSUB 8060: CHAR ,7,5,Nt: CHAR ,O,7,L40t 

<215> 


PUT S*: S*-S*+V*: PLAY "A": FAST : CHAR ,0.7 


3540 

B*=“": CHAR ,4,7,"{LIG.REDIBLOECKE",1: INPUT 



,L50*: GOSUB 9180: IF V=1 THEN 4090: ELSE 40 



"<2SPACE,GREY3)";B*: PLAY "A": IF LEN(B*)<1 



80 

<306> 


OR LENIB»)>3 THEN CHAR ,B,7,L40t: GOTO 3540 

<RK8> 

4090 

RETURN : BEND 

<0MO> 

3550 

GOSUB 8060: GOSUB 8750: CHAR ,26,5,B*: CHAR 


4100 

CHAR ,0,5,L5O*: IF K=1 THEN T*-"-": COLOR 5, 



,0,7,L4O* 

<OUM> 


16: GOTO 4160 

<7T4> 

3560 

1*="": CHAR ,4,7,"(LIG.RED) I D ",1: INPUT " 


4110 

CHAR ,7,5,"{GREY3)"*N»IZ)+B*IZ M-"(3SPACE)"♦I 



(2SPACE,GREY3)";I*: PLAY "A": IF LEN<X*)<1 0 



*+" "+S* 

<G3J> 


R LEN II»)>3 THEN CHAR ,7,7,L40* 

<LJE> 

4120 

POKE 208,0: T*= M ": CHAR ,5,7,"(GREY2>HILFE A 


357« 

GOSUB 8860: GOSUB 861O: CHAR ,32,5,1*: CHAR 



UF 40 Z.- BILDSCHIRM(3SPACE,LIG.RED,RVSON) T 



,0,7 ,L40t 

<0EC> 


YP (RVOFF,3SPACE,GREY3>": SYS 51413: PRINT " 


3580 

S*="": SLOW : CHAR ,4,7,"(GREY2)HILFE AUF 40 

Z.BILDSCHIRM(2SPACE,RVSON,LIG.RED)DISC/SEIT 

E(RVOFF,2SPACE,GREY3>": INPUT S*: PLAY "A": 
FAST : GOSUB 8860: GOSUB 9180: IF V=1 THEN 3 






590: ELSE 3580 

<JNB> 

Listing 1. (Fortsetzung) 
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LISTINGS 



?": SYS 51420: SLOW : 6ET KEY TS: PLAY "A": 


4590 

IF PEEK(212)-85 THEN Z-Z-l: M-M-l: PLAY “A”: 



FAST : CHAR ,0,7,1.50*: GOSUB BB60 

<RE5> 


CHAR ,5,4,L20S : CHAR ,5,4(GREENT*(M> 


4130 

IF T*="T" THEN CHAR ,©,5,L40S: RETURN 

<UKQ> 


m=M+1: Z=Z+1: REM "(4SPACEJ***(2SPACEJ 


4140 

A=ASC(T*>: IF A=13 OR A=32 THEN TS=“-": A=0: 



TYP LOESCHEN (2SPACE 3 *«•# 

<N8D> 


GOTO 4160 

<4C5> 

4600 

GOTO 4290 

< 1GD> 

4150 

FOR X=1 TO LEN(R*>: IF T*=MID*(R*,X,1> THEN 


4610 

REM 

<5CL> 


4160: ELSE NEXT : SOUND 1,350,30: CHAR ,3,7, 


4620 

REM "(4SPACEJ**# (2SPACEJLIST UND DRUCKC2SPAC 



"(LIG.REDJPROGRAMMTYP <LIG.GREEN>ERST IN DER 



E JROUTINEN(2SPACEJ *** 

<5KM> 


TYPENLISTE EINTRÄGEN(2SPACEJ": 5LEEP 3: CHA 


4630 

REM 

<5SN> 


R ,3,7,L50S: GOTO 4120 

<BKV> 

4640 

IF CN=0 THEN PLAY "ACACAC": CHAR ,7,7,"CLIG. 


4160 

W=7-LEN(S*>: FOR 1-1 TO W: TS-CHR*(32)+TS: N 



GREENJKEINE (LIG.REDJD A T E I (LIG.GREENJZU 



EXT : CN-CN+1: N-N+l: GS <N) *NS (Z)+B* (Z) +" C3S 



M {DRANGE JBEARBEITEN {LIG.GREEN)VORHANDEN“: 



pacej"+i**“ “+s*vr* 

< AAD> 


SLEEP 3: GOTO 1580 

<ACQ> 

4170 

WINDOW 8,16,15,16,1: PRINT CN; : WINDOW 27,7, 


4650 

CHAR ,10,1,“{GREY1J LIST UND DRUCK - ROUTINE 



78,15,0 

<JQL> 


N : ",1 

< IEB> 

4180 

CHAR ,0,5: PRINT CN TAB(7)G*(N)+CHR*<27>+“V" 

<EJ9> 

4660 

CHAR ,2,3,"(GREY3J0. / 5. :(2SPACE,CYANJLIST 


4190 

IF N>1080 THEN CLOSE 1: WINDOW 25,4,78,19,1: 



EN (GREY3J/CLIG.RED) DRUCKEN(2SPAC£,GREY3J-C 



GOTO 3360 

<8F9> 


2SPACE,ORANGE?VON{4SPACE JA{2SPACE)-(2SPACEJZ 


4200 

RETURN 

<9K7> 


" 

<3GS> 

4210 

REM 

<7CT> 

4670 

CHAR ,2,4,"CGREY3J1. / 6. :(4SPACEJ:(4SPACEJ 


4220 

REM "C4SPACEJ*«*(2SPACEJPR0GRAMMTYPEN EINGAB 



/(4SPACE J: (5SPACEJ-C2SPACE,RED JEINER(2SPACEJ 



E (2SPACEJ*** 

<7KU> 


DISKETTE" 

<80K> 

4230 

REM 

<7SV> 

46B0 

CHAR ,2,5,“{GREY3J2. / 7. :(4SPACEJ:{4SPACEJ 


4240 

WINDOW 25,4,7B,19,1: CHAR ,15,1,“{GREY1>PROG 



/C4SPACE J: C5SPACEJ-C2SPACE,GREEN)EINES(2SPAC 



RAMMTYPEN-EINGABE : " , 1 

<8U9> 


EJPRG.-TYPEN“ 

<8CS> 

4250 

CHAR ,20, 13, " (GREEN>-" 

<H6H> 

46P0 

CHAR ,2,6,"(GREY3J3. / 8. :(4SPACEJ:C4SPACEJ 


4260 

CHAR ,5,15,"(LIG.REDJÄfl (GREY3>:(LIG.RED> 



/{4SPACE):{5SPACEJ-{2SPACE,LIG.GREEN JNACH(3S 



C2SPACE,GREY31,C2SPACE,LIG.RED ><-CGREY3,2SPA 



PACEJPRG.-TYPEN" 

<9N0> 


CEJ- L0ESCHEN(2SPACEJ,(2SPACEJEINGABE -(2SPA 


4700 

CHAR ,2,7,"(GREY3J4. / 9. :(4SPACEJ:(4SPACEJ 



CE,LIG.RED)—>" 

<N38> 


/{4SPACEJ: (SSPACEJ-{2SPACE,LIG.BL UE JEINES{2S 


4270 

CHAR ,5,7,"CLIG.REDJEINGABE:",1: WINDOW 40,7 



PACE >D I SC—FORMAT " 

< BIJT > 


,70,16, 1 

<0AJ> 

4710 

CHAR ,2,8,"(GREY3JA. / B. :C4SPACEJ:(4SPACEJ 


42B0 

Z-0: M=8: FOR Z-72 TO BO: PRINT “CYEU-OW>";C 



/(4SPACEJ: C5SPACE>— C2SPACE,BLUEJFORMAT NACH 



HR*(Z);" : (2SPACE,GREY3J";T*(M >: M-M+l: NEXT 



TYPEN" 

<07P> 


: Z-Z-4: M=M-4: D-0 

<MPF > 

4720 

CHAR ,10,10,"{GREY2JHILFE AUF 40 ZEICHEN BIL 


4290 

POKE 208,0: REM "C3SPACEJ***(2SPACEJANFANG V 



DSCHIRM" 

<B9L> 


ON EINGABE(2SPACEJ*** 

<R6N> 

4730 

GOSUB 1620: POKE 268,©: PS-"" 

<TGP> 

4300 

IF PEEK(2121=83 THEN BEGIN : M-M+4: Z-Z+4: I 


4740 

IF T-ll OR T—1 OR T=2 OR T-3 OR T=4 OR T-12 



F D=1 THEN 4336: REM "(2SPACEJ#**C2SPACEJRAU 



THEN N*="(CYANJLISTEN": ELSE N*="(LIG.REDJDR 



FC2SPACEJ*** 

<7IA> 


UCKEN" 

<©EG> 

4310 

IF Z>=95 THEN D=l: Z=Z-4: M=M-4: PLAY "A": G 


4750 

ON T GOTO 5330,5400,5490,5910,5980,5330,5400 



OTO 4290 

< IK2> 


,5980,5910,1000,4000,50BO,591© 

<9I8> 

4320 

IF Z>90 THEN CHAR ,0,©,L3©S: SYS 51900: CHAR 


4760 

GOTO 4730 

<©GD> 


,6,8,"(YELLOW,2SPACEJ:": Z=Z+1: M=M+1 

<ASU> 

4770 

REM 

<4CH> 

4330 

IF Z<91 THEN CHAR ,©,0,L30S: SYS 51900: CHAR 


4780 

REM "C4SPACEJ***(2SPACEJLISTEN VONC2SPACEJA 



,0,8,"(YELLOWJ": PRINT CHRS(Z);" :(2SPACE,G 



BIS ZC2SPACEJ*** 

<7KU> 


REY3J";T*(M): Z=Z+1: M=M+1: D=0 

<35P> 

4790 

REM 

<7SV> 

4340 

Z=Z—4: M=M-4: GOTO 4290: BEND 

<14B> 

480« 

CHAR ,3,1,"{LIG.GREENJNR. {GREY3J,£LIG.REDJ 


4350 

IF PEEK(212)=84 THEN BEGIN : M=M-6: Z=Z-6: I 



PROGRAMM(9SPACE,GREY3J,(REDJ BL. (GREY3J,(YE 



F D-l THEN 4380: REM ”{2SPACEJ»»«<2SPAC£JRUN 



LLOWJ ID/SEITE(GREY3 J , CGREY1JTYP" 

<7LE> 


TER C2SPACE >*** 

<HOJ > 

4810 

CHAR ,6,15,"(LIG.REDJÄQ (GREY3J:(LIG.REDJ 


4360 

IF Z<=60 THEN D=l: Z=Z+6: M=M+6: PLAY "A“: G 

1 Ol 


'GREY3J,C2SPACE,LIG.REDJSPACE - (GREY3JSTOP 



OTO 4290 

*'■ JPACEJ, {2SPACE,LIG.REDJ=> : (GREY3JLISTEN 


4370 

IF Z<=64 THEN CHAR ,0,B,L30*: SYS 51914: CHA 



AB (LIG.REDJ?" 

<A©9> 


R ,0,0,"(YELLOW,2SPACEJ:": Z-Z-l: M=M-1 

<F30> 

4820 

WINDOW 27,7,78,16,1 

<3M0> 

4380 

IF Z>=65 THEN CHAR ,©,B,L30S: SYS 51914: CHA 


4830 

FOR 1=1 TO 9: F=155: IF LEN(GS(I>)=1 THEN F= 



R ,0,0,"«YELLOWJ": PRINT CHRS(Z);" :{2SPACE, 



156 

<401 > 


GREY3J"; TS (M): Z=Z-1: M=M-1: D=© 

<MN6> 

4840 

PRINT " (YELLOW>";I;TAB(7);CHRS(F);GS(I): NEX 


4390 

Z=Z+6: M=M+6: GOTO 4290: BEND : REM "C3SPACE 



T : 1=5: N=N+1 

< A06 > 


>***C2SPACE>TYPEN - EINGABE {2SPACEJ*** 

<GR8> 

4850 

POKE 208,0: REM "C30SPACEJ***(2SPACEJANFANG( 


440O 

IF PEEK(212)=86 THEN BEGIN : Z-Z-l: M=M-1: P 



2SPACEJ*** 

<36N> 


LAY "A": CHAR ,5,4,L2ö*: CHAR ,5,4,"CGREENJ" 


4860 

IF PEEK(212)=88 THEN POKE 212,D: REM "(12SPA 



: POKE 208,0: POKE 21,2: INPUT T*(M): POKE 2 



CEJ***(2SPACEJTASTEN DAUERAUFRUF(2SPACEJ*** 

<PL©> 


1,0: PLAY "A“: IF LEN!T*(M))<1 THEN T*(M)=CH 


4870 

IF PEEK(212)=60 THEN D=60: GOTO 4850: REM "( 



R*(45) 

<UTJ> 


7SPACEJ*** (2SPACE5STOP (2SPACEJ*** 

<3K9> 

4410 

IF LEN(T*(M))>13 THEN CHAR ,5,4,L20S+"{5SPAC 


4800 

IF PEEK(212)-83 THEN D-B3: GOTO 4930: REM “{ 



EJ": T*(M)=CHR*(45): CHAR ,5,4,TS(M> 

< 0QC> 


7SPACEJ***(2SPACEJRAUF(2SPACE J*** 

<2DG> 

4420 

IF LEN(T*(M))<I3 THEN T*(M>=T*(M>+CHR*(32): 


4890 

IF PEEK(212)=84 THEN D=84: GOTO 4970: REM "C 



GOTO 4420 

< 9MT > 


7SPACEJ***{2SPACE JRUNTER{2SPACEJ*** 

<05N> 

4430 

CHAR ,0,4: PRINT "{YELLOWJ";CHRS(M+64);" :C2 


4900 

IF PEEK(212)—86 THEN 5010: REM "(16SPACEJ*«* 



SPACE,GREENJ";T*(M): Z=Z+1: M=M+1: GOTO 4290 



(2SPACEJLISTEN AB(2SPACEJ*.« 

<QJE> 


: BEND 

<1M9> 

4910 

IF PEEK(212)=57 THEN D=0: N-N-l: PLAY "A": G 


4440 

IF PEEK(212)“57 THEN BEGIN : X=0: PLAY "A": 



OTO 1580: REM "*** ZURUECK ZUM MENUE *** 

<C6C> 


WINDOW 25,4,78,19,1: REM '• C215PACE>«**(2SPAC 


4920 

GOTO 4850 

<@GL> 


EJTYPENREIHENFOLGE FUER AUSGABE(2SPACEJ#** 

<K06> 

4930 

REM "(2SPACEJ.**{2SPACE JLISTEN{3SPACEJRAUF{3 


4450 

I*-"": FOR Z-l TO 26: IF TS(Z)<>CHR*(45) THE 



3PACEJ**** 

<2C9> 


N I*=IS+CHR*(64+Z>: X-X+l 

< I2A> 

4940 

1-1+5: IF I=N THEN 1=1-5: PLAY "ACACACAC": D 


4460 

NEXT : IF X-0 THEN RS-CHRS(45): GOSUB 904O: 



-60: GOTO 4850 

<6G3> 


GOTO 1580 

<2T5> 

4950 

SYS 51900: F—155: IF LEN(G*(I>>-1 THEN F-156 

<LDO> 

4470 

CHAR ,3,4,"CLIG.REDJEINGABE FUER TYPENREIHEN 


4960 

CHAR ,0,0,"(YELLOWJ": PRINT I;TAB(7>;CHRS(F> 



FOLGE BEI DER AUSGABE :" 

< IRF> 


;G*(I): I-I-4: GOTO 4B50 

<U9T> 

4480 

CHAR ,3,6,"CGREY1JEINGABEFOLGE:", 1: CHAR ,21 


4970 

REM "«SPACEJ*»*(2SPACEJLISTEN(3SPACEJRUNTER 



,6,"CGREY3>“ + !*: R*-““: Y-0 

<537> 


(3SPACEJ*** 

<3CD> 

4490 

CHAR ,3,8,"<LIG.REDJAUSGABEFOLGE:“,1: SYS 51 


4980 

I-I-5: IF I=0 THEN I-I+5: PLAY "ACACACAC": D 



413: PRINT "CGREY3,2SPACE J? C2SPACE J": SYS 51 



-60: GOTO 4S50 

<RAR> 


420 

<B18> 

4990 

CHAR ,0,8,L50S: SYS 51914: F-155: IF LEN(G*( 


4500 

IF Y-X THEN 4S40: ELSE POKE 208,0: GET KEY A 



I))-l THEN F-156 

<V4G> 


*: PLAY "A" 

<BL1> 

5OO0 

CHAR ,0,0,"CYELLOWJ": PRINT I;TAB(7);CHRS(F) 


4510 

FOR Z-l TO X: IF AS-MID*(IS,Z,1> THEN 4530: 



SGS(I): I-I+4: GOTO 4850 

<VPV> 


ELSE NEXT : GOTO 4500 

<MH0> 

5010 

REM " (2SPACE)***(2SPACEJLISTEN AB '’C2SPACE># 


4520 

FOR Z-l TO LEN(RS): IF AS-MID*(R*,Z,1) THEN 



** 

<7CT> 


450O: ELSE NEXT : R*=RS+AS: Y-Y+l: CHAR ,21, 


5020 

WINDOW 25,4,7B,19,0: PLAY “A“: CHAR ,6,13,“{ 



8,R*: GOTO 4500 

<E2N> 


LIG.REDJWEITER-LISTEN AB (GREY3J": INPUT "<2 


4530 

CHAR , 20+Z , 6 , " (ORANGE J " +A*: GOTO 4520 

<E45> 


SPACEJ";IS: PLAY "A": I=VAL(IS): D=60: CHAR 


4540 

CHAR ,18,8," ": CHAR ,3,10,"(GREY1JEINGABE D 



,6,13, L40S 

<680 


ER TYPENREIHENFOLGE RICHTIG(2SPACE,LIG.REDJ( 


503© 

IF I<1 OR I>N THEN 5020 

< JLT> 


J/N > (GREY1J?" 

<N08> 

5040 

WINDOW 27,7,78,16,1: IF I*="<-“ THEN 48S0 

<TKA> 

4550 

POKE 208,0: BET KEY A*: PLAY “A" 

<OBB> 

5050 

Z—I: Z-Z+B: X-I: FOR I-X TO Z: F-155: IF LEN 


4560 

IF A*="J" THEN R*=RS+CHR*C45>: GOSUB 9040: P 



(GS(I))—1 THEN F-156 

<U3H> 


LAY "ACACAC": GOTO 15B0: REM "(17SPACEJ**»C2 


5060 

IF I=N THEN I-I-5: PLAY "ACACACAC": GOTO 405 



SPACEJTYPENEINGABE(2SPACEJE N D E(25PACEJ*** 

<F7F> 


0 

<T84 > 

4570 

IF A*="N" THEN CHAR ,3,8,L5©S: CHAR ,3,10,L5 


5070 

PRINT "(YELLOWJ";I;TAB(7);CHRS(F);GS(I): NEX 



0*: GOTO 4480 

<L3N> 


T : 1=1-4: GOTO 485© 

<54P> 

4580 

GOTO 4550: BEND 

<VQE> 

5000 

REM 

<54K> 


18 
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LISTINGS 


5090 REM "(4SPACE»<hh.(2SPACE>AUSGABE DISKETTENFOR 
MAT NACH PRG.TYPEN(2SPACE»**. 

5100 REM 

5110 CHAR ,2,13,NS: PRINT ■ (REDJVON DISKETTEN FD 
RMAT (GREY2X NUR ) <GREY3>"; : SLOW : 

INPUT S*: PLAY "A": FAST : IF SS-"“” THEN SS 
CHAR ,0,13,L50S: GOTO 4730 
5120 F=l: GDSUB 91S0: IF V-l THEN 5130: ELSE 5110 
5130 WINDOW 25,4,76,19,1: Y-LEN(SS): IF S*-”+" TH 
EN X-31: ELSE X-30 

5140 CHAR ,3,1,"{LIG.BREENJNR. <GREY3>,(LIG.RED) 
PROGRAMM(9SPACE,GREY3»,{REDJ BL. (GREY33,<YE 
LLOWJ ID/SEITE(GREY3J , CGREY1»TYP" 

5150 W-l: GOSUB 5260 

5160 CHAR ,7,8, " (YELLOWJFORMAT : "*SS: SYS 51900 
5170 FOR Z-l TO LEN(RS): PS-MIDS(RS,Z,1): PLAY "A 
IF P*OCHR*(4S> THEN Q-ASC(PS): Q-Q-64: C 
HAR ,7,B,"(PURPLE»"*T*<Q>: PLAY "A“: SYS 519 
00 

5180 FOR 1-1 TO N 

5190 POKE 20S.0: IF W“0 THEN WAIT 208,1 
S2O0 IF PEEK<212)-60 THEN GOSUB 5260 
5210 IF PEEK(2121“57 THEN PLAY "ACACAC": W-0: GOT 
0 1580 

5220 IF LEN(G*(I>)“1 THEN CHAR ,7,8,"<ORANGE>"+B* 
(I): SYS 5190O 

5230 IF P*=RIGHTS(GS(I),1) AND SS-MID*(G*(I),X,Y) 
THEN CHAR ,0,8: PRINT "{YELLOW!■;I;TAB(7);“ 
(GREY3J";G*(I>: SYS 51900 
5240 IF P*=CHR*(45) AND I>-N THEN PLAY "ACACACAC“ 
: POKE 208,0: WAIT 208,1: GOTO 1580 
5250 NEXT : NEXT 

5260 IF W=1 THEN W=0: WINDOW 25,18,78,18,1: CHAR 
,10,0,"{LIG.REDFS P A C E{3SPACE,GREY3>:(3SP 
ACEJ ": PRINT "LISTEN(3SPACE>/(3SPACE)";: SYS 
51413: PRINT "(LIG.GREEN»STOP{GREY3>";: SYS 
51420: WINDOW 27,7,78,16,0: PLAY "A": RETUR 
N 

5270 IF W-0 THEN W=l: WINDOW 25,18,78,18,1: CHAR 
,10.0,"{LIG.RED>S P A C E{3SPACE,GREY3>:(3SP 
ACEI": SYS 51413: PRINT "(LIG.GREENJLISTEN(G 
REY3>";: SYS 51420: PRINT "<3SPACE>/{3SPACE> 
STOP";: WINDOW 27,7,78,16,0: PLAY "A": RETUR 
N 

5280 REM 

5290 REM "(4SPACE>***(2SPACE>ABFRAGE FUER LISTEN 
NACH KRITERIUM(2SPACE >*** 

5300 REM 

5310 REM "{4SPACE»***{2SPACETABFRAGE WELCHE DISKE 
TTE LISTEN(2SPACEJ**» 

5320 REM 

5330 CHAR ,8,13,NS: PRINT “ CRED>WELCHER DISKETTE 
(2SPACE,GREY3?";: SLOW : INPUT IS: PLAY "A“: 
IF IS="<-" THEN CHAR ,8,13,L50S: GOTO 4730 
5340 FAST : GOSUB 8620: PS=IS: CHAR ,8,13,LS0J: S 
LOW 

5350 CHAR ,8,13,NS: PRINT " (REDJWELCHE DISC / SE 
ITE(2SPACE,GREY3>“;: INPUT SS: PLAY "A“: FAS 
T : GOSUB 9180: IF V-l THEN 5360: ELSE 5350 
5360 NS="": PS—PS+CHR*(32)+SS: X-26: Y-LEN<PT): V 
=1: IF T=1 THEN 5610: ELSE 5980 
5370 REM 

5380 REM ”{4SPACEJ*»*C2SPACEJABFRAGE WELCHEN PROG 
RAMMTYPTEN LISTEN C2SPACE >«-*« 

5390 REM 

5400 CHAR ,8,13,NS: PRINT " (GREEN»VON WELCHEM PR 
8. —TYP{2SPACE,GREY3>"; : SYS 51413: PRINT 
: SYS 51420: SLOW : POKE 208,0: GET KEY PS: 
PLAY "A“: FAST : CHAR ,8,13,L50S 
5410 IF PEEK(212)“57 THEN PLAY "ACACAC": GOTO 473 
0 

5420 A-ASC(PS): IF A-13 OR A“32 THEN PS“"-": A-0: 
GOTO 5450 

5430 FOR X-l TO LEN(RS): IF PS-MIDS(RS,X,1) THEN 
5450: ELSE NEXT : SOUND 1,350,30: CHAR ,4,13 
,"(LIG.REDJPROGRAMMTYP (LIG.GREEN»ERST IN DE 
R TYPENLISTE EINTRÄGEN " 

544© SLEEP 3: CHAR ,©,13,L50S: GOTO 5400 
5450 NS-"": X-37: Y-l: V-l: IF T-2 THEN 5610: ELS 
E 5980 
5460 REM 

5470 REM "(4SPACEJ»**{2SPACE>AUFRUF FUER LISTEN N 
ACH PROGRAMMTYPEN{2SPACE >*** 

5480 REM 

5490 WINDOW 25,4,78,19,1: W-0 

5500 CHAR ,3,1,"(LIG.GREEN>NR. (GREY33,(LIG.RED» 
PROGRAMM(9SPACE.GREY3»,(RED» BL. (GREY3»,(YE 
LLOW» ID/SEITE (GREY3J,(BREY1J TYP" 

5510 W-l: GOSUB 5260 

5520 FOR Z-l TO LEN(RS): PS-MIDS(RS,Z,1): PLAY "A 
": IF PS< >CHRS(45) THEN Y-ASC(PS): Y-Y-64: C 
HAR ,7,0,"(PURPLE>"+TS(Y): PLAY "A": SYS 519 
00 

5530 FOR 1-1 TO N 

554© POKE 200,0: IF W-0 THEN WAIT 200,1 
5550 IF PEEK(212)-60 THEN GOSUB 5260 
5560 IF PEEK(212)-57 THEN PLAY "ACACAC": W-0: GOT 
□ 1580 

5570 IF LEN(GS(I))—1 THEN CHAR ,7,8,"(ORANGE>"+GS 
(I): SYS 51900 

5500 IF PS—RIGHTS(GS(I),1) THEN CHAR ,0,8: PRINT 
"(YELLOW»”;I;TAB(7);"(GREY3J";GS(I): SYS 519 
00 

5590 IF PS—CHRS(45) AND I>-N THEN PLAY "ACACACAC" 


<5CL> 

<7KU> 


<S66> 

<0KH> 

<MHV> 


<EKA> 

<9NF> 

<A04> 


<SJS> 

(RNT> 

<JCG> 

<DJF> 

<KAV> 

<VKK> 


<L06> 

<KNM> 

<4QH> 


<1U1> 


<A9G> 

<44G> 

<4CH> 

<6KQ> 

<6SR> 

<640> 

S4€R 

<OFT> 

<2MA> 


<QAU> 

'<SK4> 
<7CT> 

<4KI> 

<4SJ> 


<E3V> 
<ED1 > 
<581 > 


<UC8> 

<RNQ> 

<L1G> 

<4KI> 

<4SJ> 

<743> 

<TVE> 


<LOQ> 

<9RE> 


<2QF> 

<Q7T> 

<7CQ> 

<RJF> 


<6AV> 


<7SL> 


<ODE> 


s POKE 206,0: WAIT 208,1: BGTO 1580 
5600 NEXT : NEXT 
5610 REM 

5620 REM "<4SPACE>***<2SPACE>LISTEN NACH KRITERIU 
M C2SPACE >*** 

5630 REM 

5640 WINDOW 25,4,7B,19,1 

5650 CHAR ,3,1,"<LIG.GREEN>NR. CGREY3>,CL Z G.RED> 
PROGRAMMC9SPACE,GREY3 >,CREDI BL. CGREY3>, <YE 
LLQW> ID/SEITE <GREY3>,CGREY1> TYP" 

5660 CHAR ,6,14,"{LIG.RED>aa <GREY3>:CLIG.RED> OH 
CGREY3>— 1. SEITE VOR / ZURUECK BLAETTERN» 
5670 1-1: GOSUB 5850: GOTO 5740 
5680 POKE 208,0: IF PEEK<212)<>88 THEN PLAY “A" 
5690 IF PEEK<212)=83 THEN GOSUB 5850: GOTO 5740 
5700 IF PEEK(212)=B4 THEN GOSUB 5870: GOTO 5800 
5710 IF PEEK(212)=57 THEN PLAY "A": GOTO 1580 
5720 GOTO 5680 

5730 REM "C45PACE>**#C2SPACE>LISTENC2SPACE>V 0 RC 
2SPACE>*** 

5746 WINDOW 27,7,78,17,1: FOR Z-l TO 10: IF Z-10 
THEN PLAY "A": GOTO 5B90 
5750 IF I>=N THEN PLAY "CACACA": GOTO 5890 
5760 POKE 208,0: IF PEEK<212)=57 THEN PLAY »ACACA 
C": GOTO 1580 

5770 IF P*-MID*<B*<I>,X,LEN<P*)) THEN PRINT » CYEL 
LDW>";I;TAB<7);"CGREY3>";G$<I): I-I+l: NEXT 
5780 1=1+1: GOTO 5750 

5790 REM "C4SPACE>*##C2SPACE>LISTENC2SPACE>Z U R 
U E C K C2SPACE >*** 

5B0O FOR Z=1 TO 20: IF Z-20 THEN 5740 
5810 IF 1=0 THEN PLAY "CACACA": GOTO 5740 
5820 POKE 200,0: IF PEEK<212)=57 THEN PLAY "ACACA 
C": GOTO 1580 

5830 IF P*=MID*<G*<I),X,LEN(P*)) THEN 1=1-1: NEXT 


5840 

5850 

5860 


5870 

5880 


5890 

5900 


5910 

5920 


1=1-1: GOTO 5810 
REM 

WINDOW 25,4,78,19,0: CHAR ,6,14: SYS 51413: 
PRINT "€LIG.GREEN>ÄQ";: SYS 51420: PRINT " C 
GREY3>:CLIG.RED> flÄ": RETURN 
REM 

WINDOW 25,4,78,19,0: CHAR ,6,14: PRINT "CLIG 
.REDJan <GREY3>: »;: SYS 51413: PRINT "CLIG. 
GREEN>na": SYS 51420: RETURN 
REM 

WINDOW 25,4,78,19,0: CHAR ,6,14,"CLIG. RED>an 
CGREY3>:CLIG. RED > OH"z GOTO 5680 
REM 

REM "C4SPACE>***€2SPACE>ABFRAGE WELCHES DISK 
ETTEN f2SPACE>— <2SPACE)F0RMAT / SEITE<2SPACE> 


593 ©^' 


S940 CHAR ,2,13,NS+" (RED»VON DISKETTEN FORMAT (G 
REY2»( NUR *:0:+ )": SYS 51413: PRINT “(2SPA 
CE,RED»?”;: SYS 51420: SLOW : GET KEY SS: FA 
ST : PLAY "A": IF SS="«-" THEN SS-"": CHAR ,0 
,13,L50S: GOTO 473© 

595© F—1: GOSUB 9180: IF V-l THEN 5960: ELSE 5940 
596© NS-"": PS-SS: Y-LEN(SS): IF SS-"*" THEN X-31 
: ELSE X—3© 

597© V-l: IF T=4 THEN 5610: ELSE 5980 
5980 REM 

5990 REM "(4SPACE»#«*(2SPACE>D R U C K(2SPACE»R0U 
TINEN (2SPACE»(HHt 
6060 REM 

6610 WINDOW 25,4,7B,19,1 

6020 CHAR ,8,1,“(GREY331. :(2SPACE,LIG.RED»DRUCKE 
N(2SPACE »— C2SPACE,GREEN »MIT KOPF" 

6030 CHAR ,8,2,"(GREY3»2. :(2SPACE,LIG.RED»DRUCKE 
N(2SPACE >-(2SPACE,YELLOW»OHNE KOPF" 

6040 CHAR ,8,3,“(GREY3J3. :(2SPACE,DRANGEJA END 
E R N(2BPACE»DES KOPFES" 

6050 CHAR ,8,6,"(BREY1»DATEI:",1: PRINT "(2SPACE, 
GREY3J“;DS;"(4SPACE,RVSON,GREYl»STAND:(RVDFF 
.GREY3» ";CN 

6060 CHAR ,6,B,"(LIG.REDJNAME :",1: PRINT ”(BREY3 
,2SPACE»";XS(I) 

6070 CHAR ,8,10,"(LIG.REDJORT(2SPACE5:”,1: PRINT 
"(GREY3,2SPACE>";XS(2) 

60B0 CHAR ,8,12,"(LIG.RED3STR. :",1: PRINT "(GREY 
3,2SPACE»";XS(3> 

6090 CHAR ,8,14,"(LIG.RED»TEL. :",1: PRINT "(GREY 
3,2SPACE)";XS(4) 

6100 POKE 208,0: GET KEY AS: PLAY "A" 

6110 IF AS-”1" THEN K-l: GOTO 6270 
6120 IF AS-"2" THEN K-0: GOTO 6270 
6130 IF AS—"3" THEN 6160 
6140 IF AS—THEN 1580 
6150 GOTO 6100 
6160 REM 

6170 REM "(4SPACE»**.(2SPACEJERSTELLEN DES KOPFES 
(2SPACE»«*» 

61BO REM 

6190 POKE 21,2: CHAR ,15,8," (BREY3»": INPUT XS(1 
): PLAY "A" 

6200 CHAR ,15,10," (GREY3J": INPUT XS(2): PLAY "A 


Listing 1. (Fortsetzung) 


<INE> 

<28H> 

<4CH> 

<4KI > 
<4SJ> 
<R9S> 


<KBS> 

<VNE> 

<3BT> 

<F2C> 

<FAC> 

<S06> 

<B8R> 

<3O0> 

<4CH> 

<OJE> 

<UFS> 

<715> 

<07T> 

<51D> 

<6SR> 

<BE9> 

<G0F> 

<A0H> 

<T47> 
< 1LJ> 
<2C9> 


<GUI> 

<2SB> 


<20M> 

<1C5> 

<73N> 

<3SF> 


<340 

<3CD> 


<PRP> 

< J7K> 

<360 

<LDN> 

<1K6> 

< 1S7> 
<44G> 
<U9B> 

<R6V> 

<SL9> 

<0AO> 


<D05> 

<9TM> 

< JED> 

<S2C> 

<NOB> 

<MBG> 

<U9G> 

<U1J> 

< 0HO> 
<SP7> 
<©GA> 
<54K> 

<5CL> 

<6KQ> 

<0LG> 

<9K5> 
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Magazin 


Diese 64'er- Ausgaben bekom¬ 
men Sie noch bei Markt & Tech¬ 
nik für jeweils 6,50 DM. 

Tragen Sie die Nummer der ge¬ 
wünschten Ausgabe (z.B. 3/88) 
in den Bestellabschnitt der Zahl¬ 
karte nach Seite 34 ein. • 

12/88: UBetsIchl Hardware- Erweiterungen 
Bauanlcilung: Centronics- Inlertace 
Usllng des Monats; Floppy-Speeder 'Exos V3 - 

1/87: Spiele; Die Renner '86. Bllligsplele im lest 
Farbmonilore Im Vergleich / Großer Einsleigeiteil So 
langt man an 


im Überblick 


9/88: Neuer Kurs. Drucker professionell nutzen 
Messen. Steuern, Regeln Prollgcräto Im Test / Public 
Domain- Spiele 

10/88: Fest: Modems und Akustikkoppler 
Usllng des Monats; Super- Strategie- Spiel 
Musikhardware im Vergleich 

11/88: Publish C6d Professionelles Dmckprogramm 
zum Ablippen / Test Malprogiamm Giga- Palm 
Ratgeber Druckerkaul 

12/88: Weihnächte- Special Die besinn 
Gescbenkldeen / Geheimllp: Monitor lür 
40.-DM / Uauanleilung: Drucker- Inlertace 





J/87: Zum Ablippen: Koplerprogramm der 
Spitzenklasse / Disketten Maikenqualltäl gegen No- 
Name- Produkte C128 Speichererweilerungen Im Tesl 

4/87: Programmiersprachen. So arbeiten Pralls 
Lrstlng des Monats: Teimlnalprogramm ‘Proterm V8‘ 
Tesl Farblernsehgeräle als Momloiersalz 

S/B7: Fractals Die Well der Aplclmanncben 
Kaultillte: Die besten Floppy- Speeder 
3'/,-Zoll- Floppy lür den CM 

2/88: Desktop Publishing Uno. Zeitung machen mil dem 
CM / Tolles Malprogiamm zum Ablippen 

3/88: Brennpunkt Spiele; 

Spiele per Teleloriu a Kopierprogramme 
im Vergleich 

4/88: Gibt es einen neuen C64 7 / Alles über 8n und 
Datenfernübertragung / Grolle Checkliste zum Kaut von 
Soltware 

5/88 C M contra Amlga. Atari i Co, 

Vergleichstest: Drucker / Im Härtetest, neuer Super- 
Joystick / GroOer Einsteiger-Sondertei! 

6/88 Keyboaids am CM / Markendiskellen Im 
Härteles! / Test Floppy-Speede 
Neuer Kurs: Assembler 

8/88 Fips und Fricks zu Druckern / Basic-Kms lür 
Einsteig« / Alles über RAM. ROM. EPROM & Co 


1/88: Die besten Oruckprogramme / 20 Zoller zum 
Ablippen / Malprogrammo lür den C128 Im Vergleich 
Jahiesinhaltsi/erzeichnls 

2/89: Test: Schnellster Basic- Compiler 
Usllng: 'Master Copy Plus"/Spiele '88 
Compulerschreibtisch zum Sparlarll 

3/89: Kaulhille: Flopples, Drucker, Monltore 
Bauanleilung: 2S6 KByte Zusatzspeichei / Soltware- 
Test: Geos 2.0 ist da / Viren im C64 

4/89 C M-longplay Uiidium kurnpielt rlurchgc- 
spieh / Usllng des Monals. Thmk Twlce, ein Knobel¬ 
spiel/ C M Extra 

5/89 Lohnt sich ein Inlertace V / Test Die besten 
Mailboxen / Dtuckerstdnder lür 10 Mark 

6/89 Groß« Disketleoveigteichsiost/ 
lisbngs des Monals: Textvoiarbeilungspiogramme 
TextII/SpielekursTeil I 

7/89: Spiele- Extra Spieieslockbnele zum Sammeln/ 
Zeichensatze selbst gemacht/ Test: Joysticks 

54<2R 


LOPPY, DATASETTE 


SH 0015: FLOPPY / DATA- 
SETTE 

Reparaturanleltung Erste Hille lür 
die Diskehenslalion / Hypratape 
das Supe/- Turbctape.. 


SH 0025: FLOPPY- LAUF¬ 
WERKE 

Wedvolle Tips und Intormatlonen 
lür Einsteiger und Fodgeschntlene 


SH 0028: GEOS / DATEI¬ 
VERWALTUNG 

Viele Kurse zu GEOS / Tolle GEOS- 
Programme zum Ablippen 


SH 9904: GRAFIK & DRUC¬ 
KER 

80- Zeichen- Karte zum Abtippen / 
Hardcopy- Routinen llir viele Druc- 


SH 0009: FLOPPY / DA¬ 
TEIVERWALTUNG 

Floppy- Beschleuniger nn Vor- 
gleichstes! /Arbeiten mit dBase II / 
C128- Diskmonllor 


Die 64er Sonderhefte bieten Ihnen umfassen¬ 
de Informationen in komprimierter Form zu 
speziellen Themen rund um die Commodore C 
64, C 128, C 16/116, VC 20 und denPlus/4. 
Diese Ausgaben hat Ihr Händler vorrätig - oder 
er bestellt sie gerne für Sie. 

RÜCKER 


Mit diesen Sammelboxen sind Ihre Ausgaben immer 

sortiert und griffbereit. 

Eine Sammelbox faßt 
einen vollständigen 
Jahrgang mit 12 Ausgaben 
und kostet 14,- DM. 


SH 0013: HARDWARE 

Ein- Chip- Mwocompul« / 8au- 
unMtungwv MIDI-Interlace. Spel- 

clKioszIllPikop, IC- Tester 


SH 9905: FLOPPY/DATA¬ 
SETTE 

Diskallcn kopieren mil Hypta- 
Copy/ lOmal schnell« laden mit 
TurboTape de Luxe 


SH 0018: DRUCKER 

Usllng. professionelle Textverar- 
bertung Nlr den MPS 801 / Malnx- 
drucker Im Tesl 


SH 0032: FLOPPYLAUF- 
WERKE UND DRUCKER 

Tips&Tools / RAM- Erweiterung 
des CM/Druckeirautinen 
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64 - EINSTIEG 


SH 0011: GRAFIK, MUSIK, SH 0020; GRAFIK 
ANWENDUNGEN Gral*- Programmierung / Brnw- 

50 Selten Muslkprogrammietung/ gungen 
Vielseitige Businessgralik 


SH 0023: GRAFIK. AN¬ 
WENDUNGEN 

AuOergowflhnllche Anwendungen 
aul dem C 64 am Ablippen 


SH 0027: GRAFIK 

AMiCA Painl Malprogiamm 


SH 0034. GRAFIK, SIMU¬ 
LATION, LERNEN 

Konstruieren mll dem C64 / Kur¬ 
vendiskussion / Einstieg In die 
DigiBltechnik 


SH 0005: C 64- GRUND- SH 0016: EINSTEIGER 2 
WISSEN Sorltoanimalion Zelcnontrlcktllm 

Vom ersten Einschallen bis am mit dom Computer / GEOS. die 
eigenen Programm / Grundlagen, neue Benutaoborttacho 
Tips und Tricks 




SH 0010: C 128II SH 0022: C 128III SH 0029: C128 

Die Geheimnisse von CP/M / Farbiges Scrolling irn 00- Zeichen- StaikeSolbwirelürCl28/Cl28D/ 

Kompletter C 128- Scnallplan / Modus / 8- Sekunden- Kopterpro- Alles über den neuen C 128 0 Im 

Grafik tilr Emsleiger gramm Blechgehäuse 


SH 0036: CI 28 

Power 128 Directory komlorabel 
organrsleren / Haushallsbucti R- 
nawen im Grill/3D- Landscballon 


aus dem Computer 


SH 0003: C16/116, VC 20, SH 0008: PLUS/4 UND CI 6 
PLUS/4 Übersicht: Zeropage und wlchlige : 

Lttings lüt Spiele, GraOk, Tips Systemadressen/Grundlagenund 
STricks/Anwendungen- Daten«- 'l» 1 ® Llstrngs 
wallung, VC 20 md Musik. 


SH 9902: ABENTEUER¬ 
SPIELE 

45 Selten Adwnlure- Programm ier - 
kure / Listings und Schrill-IOr- 
Schritt-Lftsungen 


SH 9903: SPIELE 

Top- Spiele- Listings lür C 64 und 
VC 20 /Grolle Spiele- MarktOber- 
sichl 


SH 0004: ABENTEUER- SH 0017: SPIELE FÜR C64 
SPIELE UND C 128 

Kurs: Programmierung von Gralik, So programmier! man Scrolling / 
Pai ser und kOnsIlicher Intelligenz/ Strategiesp'iele Grips ist geiragl 
Viele Advcntures 


SH 0030: SPIELE FÜR C64 
UND C128 

Tolle Spiel« zum Abtippen IOi C64/ 
C 128/Spieleprogrammierung 


\ IPS&TRICKS, ANWENDUNGEN 


SH 9906' AUSGEWÄHLTE 
SUPERLISTINGS 

Die besinn Programme aus den 
64or- Magazinen 1984/85 


SH 9901: TIPS&TRICKS 

Botptrlsorwnllerunocn lür Betriebs - 
System und Floppy / Unentbehrli¬ 
che Progiammlerhlllon 


SH 9907 ANWENDUN¬ 
GEN/ DFÜ 

Tetmlnal und Mailboxprogrnmm 
zum Abtlppen / Der C 64 als Wlnzet 


SH 0002: TIPS&TRICKS 

Zeichensal/ und Sprite- Editor / 
Intcnupt- Joyslickabtrage / 27 
nützliche Eiweiler 


SH 0031: DFÜ. MUSIK, SH 0033: TIPS.TRICKS & 
MESSEN-STEUERN- TOOLS 
REGELN Basic- Control- System/ Tltelge- 

Allcs über DFÜ / BTX von A-Z / neratoi/Digitale Super Sounds/ 


SH 0024: TIPS, TRICKS & 
TOOLS 

Die besten Peeks und Pokes sowie 
Utilities mit Plill 


Betriebssysteme Im Vergleich 


Bauanle.1 


ROGRAMMIER- UND MASCHINENSPRACHE 


• «*„• •* ■ /• . 

*••**•*#•* #• #• £ 
*:*!*!*:*!*!*:*•*•*•*: 
*.*• •' 


SH 0007: PEEKS&POKES SH 0012 PROGRAM- 

•Maschinen- Power" mit Basic / MIERSPRACHEN 

Multitasking 2 Basic-Programme Pascal. Comal. Prolog, C und Fcwlh 
lauten nebeneinander / Peeks und Ve , gleiöl Compiler 
Pokes zum C128 


SH 0021: ASSEMBLER 
UND BASIC 

Giga- Ass Hypra- Ass hoch 2 / 
Paradoxon- Basic. 50000 Basic 
Bytes lies 


SH 0035: ASSEMBLER 

Abgeschlossene Kurse lur Anlan- 
gei und Fortgeschrittene 




















































LISTINGS 


6210 CHAR ,15,12,“ <GREY3>": INPUT X*(3>: PLAY “A 

6220 CHAR ,15,14,“ <GREY3>": INPUT X*(4>: PLAY "A 
POKE 21,0 
6230 GOTO 6100 
6240 REM 

6250 REM "<4SPACE>***C2SPACE>B E G I N NC3SPACEJD 
ER DRUCKROUTINEN C2SPACE >*** 

6260 REM 

6270 FOR 1-1 TD 5: PRINT I NEXT 

6200 IF T-5 THEN N*-“{ORANGE>VONC2SPACEJA BIS Z" 
6290 IF T =6 THEN N*="(RED)DER DISKETTE I CCYAN>“+ 
P* 

6300 IF T-7 THEN N*-“(GREEN1DES PROGRAMMTYPEN I < 
CYAN>"+P* 

6310 IF T-B THEN N*-“«LIG.GREENJN A C H«SPACE»PR 
OGRAMMTYPEN“ 

6320 IF T-9 THEN N*="<LIG. BLUEJDES FORMAT : {CYAN 
)"»P* 

6330 IF T-13 THEN N*="<LIG.BLUEJNACH TYPEN VON FO 
RMAT : CCYAN>"+P* 

6340 CHAR ,8,12,"(LI 8 .RED)IST DER DRUCKER {LIG.GR 
EEN>EINGESCHALTET ((LIG.RED > J/N CLIG.GREEN >) 
?“: POKE 200,0: GET KEY AJ: PLAY “A": IF A«= 
"J" THEN CHAR ,0,12,L50*: GOTO 6360 
6350 IF A»-"i-" THEN 1570: ELSE 6340 
6360 CHAR ,0,12,"CLIG.RED»DATUM:",1: PRINT "CGREY 

3,2SPACEJ—.—.-": CHAR ,14,12: POKE 200, 

0: POKE 21,2: INPUT "{BREY3,2SPACE>“iI*: POK 
E 21,0: PLAY "A" 

6370 CHAR ,8,14,"CCYAN»DRUCKEN “: SYS 51413: PRIN 
T N*: SYS 51420 
6380 REM 

6390 REM “{4SPACE)*»#C2SPACE>DRUCKERKANAL OEFFNEN 
UND KOPF DRUCKENC2SPACE>*** 

6400 REM 

6410 L=4: Z=0: S=0: U=0: W=@: OPEN 4,L,4: PRINT04 
6420 OPEN 1,L: PRINT»1: PRINT41 

6430 PRINT#1,TAB(25);"D I S CC2SPACE>-<2SPACE>C 0 
L L E C T I O N{2SPACE>— C2SPACE>1 2 B" 

6440 PRINT»!,TAB(25);"****»■»**.*«»».*»*.»».****»* 

6450 PRINT*1.TAB(25):-'DATEI :C2SPACE>":D* 

6460 PRINT»1,TAB(25);"STAND : " ; CN;"C 6 SPACE5DATUM 
:C2SPACE>";I* 

6470 PRINT#1,TAB(25);"****«**»*****»***»**♦•**»«» 
ihhhhhhhhhhhhh:" : IF K=0 THEN 6520 
6480 PRINT»1,TAB(25);“NAME C2SPACE):{2SPACE>■;X*(1 
) 

6490 PRINTÄ1,TAB(2S);“ORTC3SPACE):«SPACE)"; X* (2) 
6500 PRINT»1,TAB(25);"STR.«SPACE):C2SPACE>":X*(3 
> 

6510 PRINT»1,TAB(25);"TEL.«SPACE):«SPACE)";X*(4 
) 

6520 PRINT»!: PRINT»1,TAB(25>;"AUSDRUCK ";Nt: N*= 

6530 PRINT»1: PRINT»1: IF K=0 THEN Z=ll: ELSE Z=1 
5: K=0 

6540 IF V=0 THEN GOSUB 8960 

6550 V=0: PRINT«1,TAB(25);“NR. , PROGRAMMC9SPACE) 
, BL. , ID/SEITE , TYP" 

6560 PRINT»1,TAB(25);"- 

-“: PRINT»1: Z=Z*3 

6570 ON T GOTO 1000,1000,1000,1000,6580,6740,6740 
,6900,6740,1000,1000,1000,6900 
6580 REM 

6590 REM "{4SPACEJ***C2SPACE)D RUCKE NC2SPACE 
)VON C2SPACE)A C2SPACE)BIS «SPACE)Z C2SPACE)*** 
6600 REM 

6610 FOR 1=1 TO N 

6620 POKE 208,0: IF PEEK(212)=57 THEN 7100 
6630 IF Z -66 THEN BEGIN : 1=1-1: S-S+l: Z=0: U=0: 
REM "C40SPACE)***C2SPACE)ZAEHLER FUER SEITE 
NLAENGE C2SPACE >*** 

6640 PRINTW1: PRINTH1: PRINT»!,TAB(34);"-C2SPAC 

E)";S;"«SPACE)-": PRINT»1: PRINT»1: PRINT 

*1 

6650 PRINT»1,TAB(25)j"NR. , PROGRAMMC9SPACE), BL. 
, ID/SEITE , TYP" 

6660 PRINT«!,TAB(25);"- 


6670 PRINT«!: Z-3: NEXT : BEND 
6680 IF U=10 THEN PRINT#1: U=0: Z-Z+l 
6690 IF LEN(G*(I))=1 THEN PRINT»1,TAB(21)iS*(I): 
U"0: Z-Z+l: NEXT 

6700 W=W+1: PRINT»1,TAB(24)jW;TAB(6-LEN(STR*(W))> 
1GS(I>: U-U+l: Z-Z+l: NEXT 
6710 IF Z<66 THEN PRINT#lx Z-Z+lx GOTO 6710 
6720 S-S+ls PRINT#1: PRINT #1: PRINT#1 ,TAB(34); " — 

— <2SPACE>"; S; "C2SPACE}-": PRINT#1: PRINT#1 

6730 CLOSE 1: CLÜSE 4: PLAY "ACACAC": GOTO 1580 
6740 REM 

6750 REM "€4SPACE>***<2SPACE>D RUCKE N<2SPACE 
>EINER DISKETTE UND EINES PROGRAMMTYPENI2SPA 
CE>*** 

6760 REM 

6770 FOR 1-1 TO N 

6780 POKE 208,0: IF PEEK(212)-57 THEN 7100 
6790 IF Z-66 THEN BEGIN : I-I-lx S-S+l: Z-0: U=0: 

REM "€40SPACE>***<2SPACE>ZAEHLER FUER SEITE 
NLAENGE C2SPACE> *** 

6800 PRINT#1x PRINT#1: PRINT#1,TAB(34);"-I2SPAC 

E>";S;"C2SPACE> M B PRINT#1: PRINT#1: PRINT 

#1 


<8K1 > 

<DD9> 

<OGA> 

<44G> 

<4CH> 

<4KI> 

<28U> 

<RAV> 

<A 8 E> 

<65L> 

<KEV> 

<TCB> 

< J28> 


< JD1 > 
<EN2> 


<70A> 

<7A7> 

<7KU> 

<7SV> 

<640> 

<KQA> 

<MMP> 

<OTJ> 

<KHT> 

^VHT> 

<B2S> 

<SQN> 

< I J7> 
<KV 6 > 

<4RM> 

<53H> 

<SLQ> 

<500 

<1US> 

<DDG> 

<SUB> 

< 46B> 
<4KI> 

<4SJ> 
<74S> 
<U7T > 
<BVN> 


<VDT> 


<K30> 

<N33> 

<0P7> 

<VRF> 

<4EG> 

<KNK> 

<GEC> 

<EJ5> 

<EA 6 > 

<GG9> 

<6K0> 


< 6 SR> 

<640> 

<S7T> 

<9W> 


<V9T> 


<030> 


6810 PRINT#1,TAB(25);"NR. , PROGRAMMC9SPACE>, BL. 
, ID/SEITE , TYP" 

6820 PRINT#1,TAB(25);"- 


6830 PRINT#ls Z-3: NEXT : BEND 
6840 IF U-10 THEN PRINT#1: U=0: Z-Z+l 
6850 IF P*=MID*(G*(I>,X,Y> THEN W-W+lx PRINT#1,TA 
B(24);W;TAB(6-LEN(STR*(W)));G*(I): U-U+l: Z- 
Z+l: NEXT 
6860 NEXT 

6870 IF Z <66 THEN PRINT#1: Z-Z+l: GOTO 6870 
6080 S-S+l: PRINT#1 1 PRINT#1: PRINT#1,TAB<34);" — 

— C2SPACE>" 5 S;"C2SPACE>-PRINT#1: PRINT*1 

6890 CLOSE 1: CLOSE 4: PLAY "ACACAC": GOTO 1580 
6900 REM 

6910 REM "C4SPACE}***C2SPACE>D RUCKE N<2SPACE 
>NACH ( FORMAT > + PROGRAMMTYPENI2SPACE >*** 
6920 REM 

6930 FOR V—1 TO LEN<R*>: P*-MID*(R*,V,1)x IF P*-C 
HR*(45) THEN 6940: ELSE F-ASC(P*>: F-F-64: P 
RINT# 1 ,TAB( 10 );T*<F> x Z-Z+lx U- 0 : GOTO 6950 
6940 PRINT#1,TAB(10);"OHNE BELEGUNG": Z-Z+l: U-0 
6950 W-0: FOR 1-1 TO N: IF LEN(G*(I)>-1 THEN NEXT 


6960 POKE 200,0: IF PEEK(212)-57 THEN 7100 
6970 IF Z -66 THEN BEGIN : I-I-l: S-S+lx Z- 0 : REM 
"C44SPACE>***C2SPACE>ZAEHLER FUER SEITENLAEN 
GEC2SPACE>*** 

6980 PRINT#1: PRINT#1: PRINT#1,TAB(34);"-€2SPAC 

E>";S;"( 2 SPACE> "x PRINT# 1 : PRINT# 1 : PRINT 

#1 

6990 PRINT#1,TAB(25);"NR. , PROGRAMMC9SPACE>, BL. 
, ID/SEITE , TYP" 

7000 PRINT41,TAB(25);"- 


7010 PRINT#1: Z-3: NEXT : BEND 
7020 IF U-10 THEN PRINT41: U-0: Z-Z+l 
7030 IF T-B AND P*-RIGHT*(G*(I),1) THEN W-W+l: PR 
INT#1,TAB(24);W;TAB(6-LEN(STR*(W)));G*(I) : U 
-U+l: Z-Z+l 
7040 IF T —8 THEN 7060 

7050 IF P*=RIGHT*(B*(I),1) AND S*-MID*(G*(I),X,Y) 
THEN W-W+l: PRINT#1,TAB(24);W;TAB(6-LEN(STR 
*(W)));G*(I): U—U+l: Z-Z+l 
7060 NEXT : NEXT 

7070 IF Z <66 THEN PRINT#1: Z-Z+l: GOTO 7070 
7000 S—S+l: PRINT#1: PRINT#1: PRINT#1,TAB(34);"— 

— f2SPACE>";S;"I2SPACEJ-": PRINT#1: PRINT#1 

7090 CLOSE 1: CLOSE 4: PLAY "ACACAC": GOTO 1580 
7100 REM 

7110 REM "I4SPACE>***<2SPACE>BENDEN DES DRUCKEN D 
um-J UNTERBRECHUNG ( + )€2SPACE>*** 

7130 IF Z<71 THEN PRINT#lx Z-Z+l: GOTO 7130: REM 
"C7SPACE>***C2SPACE}VORSCHUB ZUM ANFANG DER 
NAECHSTEN SEITEI2SPACE}*** 

7140 CLOSE 4: CLOSE 1: PLAY "ACACAC": GOTO 1580 
7150 REM 

7160 REM "C4SPACE}***I2SPACE}SORTIEREN / AENDERN 
/ LOESCHEN / SUCHEN / BLOCKS FREI€2SPACE>*** 
7170 REM 

7180 IF CN—O THEN PLAY "ACACAC": CHAR ,7,7,"<LIG. 
GREEN>KEINE CLIG.RED}D A T E I <LIG.GREEN1ZU 
M CORANGEJBEARBEITEN €LIG.GREEN}VORHANDEN": 
SLEEP 3z GOTO 1580 

7190 CHAR ,6,0,"<CYAN}D ATE I€2SPACE}-<2SPACE}B 
EARBEITUNG :",1 

7200 CHAR ,6,2,"<GREY3}1. :C2SPACE,LIG.RED}LOESCH 
EN VON C3SPACE}DATEIEINTRAEGEN : IGREY3}*" 

721O CHAR ,6,3,"CGREY3,3SPACE}:I2SPACE,LIG.BLUE}R 
EGENERIERENC4SPACE}:C3SPACE}:C3SPACE}:I3SPAC 
E}: " 

7220 CHAR ,6,4,"<GREY3,3SPACE}:C2SPACE,LIG.GREEN} 
AENDERN C2SPACE)VON C3SPACE}DATEIEINTRAEGEN" 
7230 CHAR ,6,5,*CGREY3}2. :€2SPACE,RED}L0ESCHEN E 
INER DISKETTE" 

7240 CHAR , 6 , 6 ,"<GREY3}3. :<2SPACE,ORANGE}BELEGEN 
I2SPACE}DESI3SPACE}PROGRAMMTYPEN (-)" 

7250 CHAR ,6,7,"<GREY3}4. x<2SPACE,YELLOW}SUCHEN! 

3SPACE}NACH(2SPACE}DATEIEINTRAEGEN" 

7260 CHAR ,6,0,"!GREY3}5. xI2SPACE,GREY1}SUCHEN!3 
SPACE}NACH<2SPACE>FREIEN BLOCKS" 

7270 CHAR ,6,9,"CGREY3J6. :I2SPACE,WHITE}D ATE 
II2SPACE}—<3SPACE>S 0 R T I E R E N" 

7280 CHAR , 6 ,10,"<GREY3}7. :C2SPACE,BROWN}D ATE 
I!2SPACE}-C3SPACE>L 0 E S C H E N" 

7290 CHAR ,6,14,"CGREY3>* CGREY2}: WERDEN BEIM SO 
RTIEREN AUSSORTIERT f" 

7300 GOSUB 1620: IF T<0 OR T>7 THEN T-O: BOTO 730 
O 

7310 ON T GOTO 7920,7360,7550,7490,7710,10970,733 
O 

7320 GOTO 7300 

7330 REM "I4SPACE}***!2SPACE}L0ESCHEN DER KOMPLET 
TEN(2SPACE}D ATE II2SPACE}*** 

7340 CLR : BOTO 1320 
7350 REM 

7360 REM "!4SPACE>***!2SPACE>L0ESCHEN EINER DISKE 
TTE C2SPAGE}*** 

7370 REM 

7380 POKE 200,0: CHAR ,3,12,"<GREY3}WELCHE ILIG.R 
ED}DISKETTE !GREY3>S0LL GELOESCHT WERDEN 0.1 
G.RED}": INPUT PS 

7390 PLAY "A": IF LEN(P*)<1 OR LEN(P*)>3 THEN P*= 


<K3F> 

<3PB> 

<V3F> 

<4AG> 


< 8 FF> 

<ADO> 

<EJ5> 

<CQ 6 > 

<0L9> 

<0K2> 

<0S3> 

<040> 


<K04> 

<PHT> 

<9KH> 

<DFD> 


<PC1> 


<T30> 

<LBA> 

< 110 > 
<FLF> 
< 0EG> 


<VAU> 

<013> 


<5GI > 
<38H> 
<EJ5> 

<EA 6 > 

<GG9> 

<5KM> 

<5SN> 

<54K> 


< VAM> 

< IMH> 
<4SJ> 

<44G> 

<4CH>* 


<BKT> 

<QHM> 

<619> 

<LGK> 

< 1 N 8 > 

<LRJ > 

<RU4> 

<NIO> 

<UNP> 

<VOO> 

<0TB> 

<M75> 

<JV3> 

<S00> 

<1BA> 

<4CH> 

<F00> 

<5SN> 

<54K> 

<5CL> 

<GSG> 
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LISTINGS 



CHAR ,0,12,L5@*: GOTO 7380 

<KMC> 

7930 

REM "<4SPACE)«HK2SPACE>AENDERUNGS UND LOESC 


7400 

IF P*="*” THEN P*=“": CHAR ,0,12,L50*: GOTO 



HROUTINE C2SPACE > *•* 

< 1C5> 


7300 

<UQL> 

7946 

REM 

<0K2> 

7410 

I*“P*: GÜSUB 8610: P*=I* 

< SBG > 

7950 

WINDOW 25,4,78,19,1: CHAR ,3,1,"CLIG.GREEN>N 


7420 

S*="": CHAR ,1,12,L50*: CHAR ,3,12,"«8REY2)H 



R. CGREY3),<LIG.RED> PROGRAMM«9SPACE,GREY3>, 



ILFE AUF 40 Z. BILDSCHIRMC2SPACE,R VSON,LIG.RE 



tRED) BL. CGREY3),CYELLOW) ID/SEITEC3REY3> , 



D >DISC/SEITE CRVOFF,2SPACE,GREY3> " : SLOW : Pü 



CGREYllTYP”: CHAR , @,7, " CLIG. RED)»” 

<APO> 


KE 208,0: INPUT S*: PLAY "A": FAST : GCJSUB 9 


7960 

CHAR ,3,13,"CLIG.REDIlUi CGREY3): CLIG.RED) tSU 



180: IF V=1 THEN 7430: ELSE 7420 

<A3J> 


CGREY3), «GREEN>AENDERN : CLIG.RED)1.CGREY3 


7430 

GOSUB 8610: P*=P**CHR*(32)*S*: CHAR ,0,12,L5 



>EINTRAG C2SPACE,LIG.RED)2.CGREY3)TYPENBELEGU 



«tf: CHAR ,10,12,"CLIG.RED>DISKETTE SYS 51 



NG" 

<MAB> 


413: PRINT "CGREY3) " ;P*;: SYS 51420: PRINT " 


7970 

CHAR ,3,14,”CLIG.RED)—> : CGREY3>LISTEN AB C 



CLIG.REDJWIRD GELÜESCHT !": 1=0 

< I4U> 


LIG.RED)? CGREY3), CCYANI8 : CGREY37L0ESCHEN 


7440 

DO UNTIL I>N 

< A5H> 


CGREY3>/ REGENERIEREN" 

<N3B> 

7450 

1*1*1: IF P*=MID*(G*(I>,26,LEN(P*>> THEN G*t 


7980 

CHAR ,2,15,"CGREY2IH1LFE AUF 48 ZEICHEN BILD 



I)-CHR*(152)+G*(I) 

<KHV> 


SCHIRM BEI TYPENEINGABE" 

<DT5> 

7460 

LDOP 

<0B9> 

7990 

WINDOW 27,7,78,16,1: CHAR ,0,5 

<48E> 

747«. 

PLAY "ACACAC": P*="": S*-“": GOTO 1580 

<S79> 

8000 

FOR 1-1 TO 5: F-155: IF LEN(G*(I))-1 THEN F* 


7480 

REM 

<54K> 


156 

<00J> 

7490 

REM "C4SPACE>***C2SPACE>SUCHEN NACH DATEIEIN 


8010 

PRINT "CYELLDW)")I;TAB 17);CHR*<F);G*<I): NEX 



TRAEGEN C2SPACE>*** 

<5CL> 


T : 1-1 

<0TG> 

7500 

REM 

<7KU> 

BO20 

POKE 208,8: REM "C32SPACE)**»C2SPACE)ANFANGC 


7510 

PORE 208,0: CHAR ,6,12,“(YELLOW1SUCHEN NACH 



5SPACE >•*** 

<42N> 


CLIG.RED>": INPUT P*: PLAY "A"i IF LENCP*><1 


8030 

IF PEEK(212)-83 THEN 8130: REM ■C19SPACE)**» 



OR LEN <P*)>16 THEN P*-"": CHAR ,0,12,L5O*: 



C2SPACE >RAUFC7SPACE>*** 

<5S6> 


GOTO 7510 

<H3H> 

8040 

IF PEEK (212)-84 THEN Bl 90: REM " CI 9SPACEXHH. 


7520 

IF P*="f" THEN P*="": CHAR ,0,12,LS0*: GOTO 



(2SPACE5RUNTER C5SPACE)•** 

<10I> 


7300 

<UOL> 

8050 

IF PEEK(212)=86 THEN 8240: REM "CI9SPACE>#** 


7530 

X-l: GOTO 5610 

<U01> 


C2SPACE>LISTEN ABC2SPACE)*** 

<4S4 > 

7540 

REM 

<6K0> 

8060 

IF PEEK(212)*57 THEN PLAY "A": GOTO 1580: RE 


7550 

REM “C4SPACE)*.«C2SPACE)BELEGEN DER NICHT BE 



M "C7SPACE>»*«C25PACE)ZURUECK ZUM MENUE *** 

<DM3> 


LEBTEN PROGRAMMTYPEN C2SPACE >*** 

< 6SR> 

8070 

IF PEEK(212)=56 OR PEEK(212)-71 THEN GOTO 83 


7560 

REM 

<640> 


30: REM " *mu* C2SPACE)AENDERN PROGRAMMC2SPACE 


7570 

1=0: WINDOW 25,4,78,19,1: CHAR ,3,1,"(LIG.GR 



jm 

<4U6> 


EEN>NR. CGREY3>,CLIG.REDJ PROGRAMMC9SPACE,GR 


BO00 

IF PEEK(212)=59 OR PEEK(212)=68 THEN GOTD 83 



EY33,CRED> BL. CGREY3>,CYELLOW> ID/SEITECGRE 



90: REM " ...C2SPACE)AENDERN PRG. TYP C2SPACE 



Y3> , <GREY1)TYP": CHAR , 0, 11, ” CLIG. RED)»" 

<61T> 


>### 

<5AI> 

7580 CHAR ,2,14,"«LIG.RED)&B CGREY3): WEITERLISTE 


8090 

IF PEEK(212)=46 THEN GOTO 8480: REM "C15SPAC 



N , CGREY2JHILFE AUF 40 ZEICHEN BILDSCHIRM": 



E >*** C2SPACE JPOGRAMM LOESCHEN C2SPACE)*** 

<NJD> 


WINDOW 27,7,78,17,1: CHAR ,0,8 

<BEA> 

8100 

GOTO 8020 

<1PI> 

7590 

DO UNTIL I>N 

<55H> 

8110 

REM 

<ATB> 

76O0 

1=1+1: IF RIGHT*(G*(I),1)=CHR*(45) THENBEGI 


8120 

REM "C4SPACE >***C2SPACE>HAUPTR0UTINE C2SPACE > 



N : CHAR ,0,8: PRINT -(YELLOW)”iIjTAB<7)“CGR 



AENDERN / LOESCHEN C2SPACE).** 

< A50> 


EY3 >“;6*(I> 

<BD7> 

B130 

REM 

<AD9> 

7610 

CHAR ,43,8,"CLIG.RED>": SYS 51413: PRINT “?“ 


8140 

REM "C2SPACE>***C2SPACE>LISTENC3SPACE>RAUFC3 



;: SYS 51420: SLOW : PORE 208,0: GET KEY A*: 



SPACE>**** 

<BLE> 


PLAY "A": FAST 

<MCA> 

8150 

1=1+5: IF I=N+5 THEN 1=1-5: PLAY "ACACAC": G 


7620 

A=ASC : IF A=13 OR A=32 THEN A=0: 



OTO 802O 

<6HP> 


GOTO 7660 

<6SD> 

8160 

IF I>N THEN SYS 51900: 1=1-4: GOTO 8020 

<17G> 

7630 

IF PEEK(212)=54 OR PEEK(212)=83 THEN 7670 

<J2A> 

B170 

SYS 519O0: F=155: IF LEN(G*(I))=1 THEN F=156 

<NUQ> 

7640 

IF A*="+" THEN PLAY "ACACAC": GOTO 1580 

<5DL> 

8180 

CHAR ,0,8,"CYELLOW>": PRINT I;TAB(7);CHR*(F) 


7650 

FOR Y=1 TO LEN(R*): P*=MID*CR*,Y,1): IF A*=P 



m . G* (I ) : 1=1-4: GOTO 8020 

< I8Q> 


* THEN 7660: ELSE NEXT : SOUND 1,350,30: GOT 

s^en or 

819~ — M "C2SP ACE>*** C2SPACE>LISTEN C3SPACE>RUNTER 



0 7610 

< 116> 


C3SPACEJ*** 

<8T3> 

7660 G* <I)=LEFT*(G*(I) ,36): 6* (I) =G* (I) +A*: CHAR 


8200 

1=1-5: IF I=—4 THEN 1=1*5: PLAY "ACACAC": BO 



,0,B,L40* 

< I69> 


TO BO20 

<G5R> 

7670 

CHAR ,0,8,"CYELLOW>“: PRINT I; TAB<7);"CGREY3 


8210 

IF I<1 THEN CHAR ,0,S,L50f: SYS 51914: 1=1*4 



>";G*(I)+CHR*(27)+ "V": BEND 

<0F1> 


: GOTO 8020 

<1IR> 

7680 

LOOP 

<GE9> 

8220 

CHAR ,0,8,L50*: SYS 51914: F=155: IF LEN(6*( 


7690 

PLAY "ACACAC": GOTO 1580 

< I2J> 


I))=l THEN F=156 

<BI0> 

7700 

REM 

<6KQ> 

8230 

CHAR ,0,0,"CYELLOW)": PRINT I;TAB(7);CHR*(F) 


7710 

REM "C4SPACE>*.*C2SPACE>SUCHEN NACH FREIEN 8 



;G*(I): 1=1+4: GOTO 8020 

<OCO> 


LOECKEN C2SPACE>*** 

<6SR> 

8240 

REM "<2SPACE >*** C2SPACE >LISTEN <3SPACE >AB ?€3 


7720 

REM 

<640> 


SPACE>*** 

<A5B> 

7730 

CHAR ,2,12,L50*: CHAR ,2,12,■CGREY1JERMITTEL 


8250 

WINDOW 25,4,78,19,0: PLAY "A": CHAR ,3,13,L5 



N DER FREIEN BLOCKS VON DISKETTE CLIG.RED>": 



O*: CHAR ,6,13,"CLIG.RED>WEITER—LISTEN AB (G 



INPUT I*: PLAY "A" 

<6GN> 


REY3>": INPUT "C2SPACE)"!I*: PLAY "A": I=VAL 


7740 

IF LEN(I*)<1 OR LENCif)>3 THEN !*="“: CHAR , 



(I*): CHAR ,6,13,L40* 

<5PT> 


0,12,L50«: 60T0 7730 

<FCJ> 

8260 

IF XI OR I >N THEN 8250 

<BAU> 

7750 

IF I*—*” THEN I** 1 '": CHAR ,0,12,L50*: GOTO 


8270 

CHAR ,3,13,"<LIQ.RED>ÜÜ <GREY3>:CLIG.RED> ZU! 



7300 

<5NL> 


CGREY3J, (GREEN)AENDERN : CLIG.RED>1.(GREY3 


7760 

GOSUB 8610: CHAR ,2,12,L50* 

<KRQ> 


)EINTRAG(2SPACE,LIG.RED)2.CGREY3> TYPENBELEGU 


7770 

CHAR ,10,12,"CGREY1>WELCHEC2SPACE,LIG.RED,RV 



NG" 

<00J> 


SON> SEITEC2SPACE,RV0FF,2SPACE,GREY3>“: PORE 


8280 

WINDOW 27,7,7B,16,1: IF I*="+" THEN 8020 

<C2D> 


208,0: SLOW : INPUT S*: PLAY “A“: FAST : GO 


8290 

Z=I: Z-Z+8: X=Is FOR I=X TO Z: F-155: IF LEN 



SUB 9180: IF V=1 THEN 7780: ELSE 7770 

<7M3> 


(G*(I))=1 THEN F-156 

<VVH> 

7780 

I*=I**CHR*(32)+S*: CHAR ,2,12,L50* 

<LCK> 

830O 

IF I=N THEN I—1-5: PLAY "ACACACAC“: GOTO 802 


7790 

CHAR ,1,12,”CGREY1>FREIE BLOECKE VON DISKETT 



0 

<NP3> 


E CLIG.RED)": PRINT I«;'' CGREY1> WERDEN ERMIT 


8310 

PRINT "(YELLOW>";I;TAB(7)j CHR* <F);G*(I): NEX 



TELT": 1=0 

<7QT> 


T : 1=1-5: GOTO 8020 

<4DU> 

7800 

DO UNTIL I>N 

<M5H> 

B320 

REM 

<B5C> 

7810 

1 = 1 + 1: IF I*=MIDf (G* CI),26,LEN CI*)) THEN EX I 


8330 

REM "C4SPACE>***(2SPACE>AENDERN VOM EINTRAG( 



T 

<7SS> 


2SPACE>**# 

<BDD> 

7820 

LOOP 

<859> 

034«. 

REM 

<ALA> 

7830 

IF I>N THEN CHAR ,1,12,LS0*: CHAR ,3,12,”0.1 


8350 

IF LEN(G*(I))“! THEN 8020 

<ssv> 


G.REDJDISKETTE CGREY1>": PRINT I*;"CLIG.RED> 


8360 

PLAY "A": CHAR ,7,4,"CLIG.RED>"i POKE 208,0: 



IN DER DATEI NICHT VORHANDEN !": SOUND 1,35 



POKE 21,2: SLOW : INPUT B*: POKE 21,0: PLAY 



0,30: SLEEP 3: CHAR ,3,12,L50*: GOTO 7300 

<TAG> 


"A"8 FAST 

<GMP> 

7840 

1-0: Z—664 

<A85> 

8370 

B*-L£FT*<G*,37): G*CI)=G*: GOTO 8460 

<6O0> 

7850 

IF S*="A*“ OR S*="B*" THEN Z-749 

< 0HJ > 

8380 

REM 

<9L6> 

7860 

IF S*="1581" THEN Z-3160: REM "C3SPACE>..*C2 


B390 

REM "C4SPACEXHM.«2SPACE>AENDERN VDN TYPENC2S 



SPACE)ANGABEN FUER BLOCKZAHL DER DISKETTEC2S 



PACE > *** 

<9T7> 


PACE>*** 

<4GD> 

8400 

REM 

<850) 

7870 

IF S*="128 ' " THEN Z-132B 

<0V4> 

8410 

IF LEN(6* ( I )) =1 THEN 8020 

<S8V> 

7880 

DO UNTIL I>N 

<U5H> 

8420 

PLAY "A": POKE 2©8,0: SYS 51413: CHAR ,43,4, 


7890 

1-1*1: IF I*-MID*(G*(I>,26,LEN(1*) ) THEN A*= 



"CLIG.RED)?": SYS 51420: SLOW : GET KEY A*: 



MID*CG*CI),20,3): X=VALCA*>: Z-Z-X 

<OQH> 


PLAY "A" 

<IU6> 

7900 

LOOP 

<859> 

B430 

FAST : A-ASC < A*) : IF A=13 OR A-32 THEN A*="- 


7910 

CHAR ,0,12,L50*+"C3SPACE>": CHAR ,2,12,"CBRE 



A=0: GOTO 8450 

<PII> 


YDAUF DISKETTE CGREY3>”: PRINT I»; ■ CGREY 1 } 






SIND NOCH CLIG.RED>" ; Z; " CGREY1>BLOECKE FREI": 






PLAY "CACACA“: POKE 208,0: WAIT 208,1: CHAR 






,0,12,L50**' 1 C3SPACE)": GOTO 7300 

<600> 




7920 

REM 

< 144> 

Listing 1. (Fortsetzung) 
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LISTINGS 


8440 FOR Y=1 TD LEN(R*>: P*=MID*(R*,Y, 1) : IF A*=P 
* THEN 8450: ELSE NEXT : SOUND 1,350,30: GOT 
0 8420 

8450 G*(I>=LEFT*(G*(I>,36>: G* (I) -Q* < 1 )+A* 

8460 CHAR ,0,4,"(YELLOW)": PRINT I; TAB(7);"(GREY3 
>";G*(I>: GOTO 8020 
8470 REM 

84B0 REM "(4SPACE)***«SPACE>EINTRAEGE L0ESCHEN(2 
SPACE)»** 

8490 REM 

8500 IF LEN(G*(I> >-l THEN 8020 

B510 IF ASC(G*(I>>-152 THEN 8540 

8520 PLAY "A": G*(I)-CHR*(152)+6*(I): GOTO 8460 

8530 REM 

8540 REM "(4SPACE)***(2SPACE>8EL0ESCHTE EINTRAEGE 
REGENERIEREN (2SPACE)*** 

8550 REM 

B560 IF LEN(B*(I)>-1 THEN 8020 

8570 PLAY "A": G*(I)-MID*(G*(I>,2,38): GOTO 8460 
8500 REM 

8590 REM "(4SPACE)*** «SPACE>HILFSROUTINEN«SPACE 
)**» 

B600 REM 
B610 REM 

8620 REM "(4SPACE)***(2SPACE)ID BEAR8EITUNG«SPAC 
E)*** 

8630 REM 

B640 IF LEFT*(I*,1)=CHR*(32> THEN I*-MID*(I*,2,2) 
8650 IF RIGHT*(I*,1)-CHR*(32) THEN I*-LEFT*(I*,2> 
B660 IF LENO*)—1 AND LEFT* (I*, 1) <CHR*(48) DR LEF 
T*(I*,1)>CHR*(57) THEN D-l 
8670 IF LEN(I*)—2 AND MID*(I*,2,1><CHR*(48) OR MI 
D*(I*,2,1)>CHR*(57) THEN D-l 
8680 IF LEN(I*)=3 AND RIGHT*(I*,1)<CHR*(48) OR RI 
GHT*(I*,1)>CHR*(57) THEN D-l 
8690 IF D-l AND LEN(I*><3 THEN I*=CHR*(45)+I*: SO 
TO 8690 

8700 IF D-l THEN D-0: RETURN 

8710 I-VAL(I*): IF I-O THEN I*="0OO": RETURN 

8720 IF LEN(I*>=3 THEN RETURN 

8730 IF LEN(I*)=1 THEN I*=CHR* (481+CHR*(48) +1*: R 
ETURN 

8740 IF LEN(I*)-2 THEN I*=CHR*(48)+I*: RETURN 
8750 REM 

8760 REM "(4SPACE)*** «SPACE )BLOCK BEARBEITUNG(2S 
PACE)*** 

8770 REM 

8780 IF LEN(B*)=1 AND LEFT*(B*,1)<CHR*(48) OR LEF 
T*(B*,1)>CHR*(57) THEN D-l 
8790 IF LEN(B*>—2 AND MID*(B*,2,1)<CHR*(48) OR MI 
Df(B*,2,l>>CHR*(57) THEN D-l 
8800 IF LEN(BS)—3 AND RIGHT*(B*,1)<CHR*(48) OR RI 
GHT*(B*,1>>CHR*(57> THEN D-l 
S810 IF D-l THEN D-0: CHAR ,8,7,L40f: GOTO 3540 
S820 B—VAL(Bf): IF B-0 THEN Bt="O00": RETURN 
8830 IF LEN(Bf)—3 THEN RETURN 

8840 IF LEN(B*> =1 THEN B*=CHR*(48)+CHR*(48)+B*: R 
ETURN 

8850 IF LEN(Bf)-2 THEN B*=CHR*(48)+B*: RETURN 
8860 REM 

B870 REM ”(4SPACE)***(25PACE)RUECKSPRUNG INS MENU 
E BEI PROGRAMM EINGABEN«SPACE>*** 

8880 REM 

8890 IF LEFT*(N*,l)="(-" THEN 8950 
B90© IF LEFT* (B*,l )=“«-•• THEN B950 
8910 IF LEFT*(If,l>-"THEN 8950 
B920 IF LEFT*(S*,l)-“►" THEN B950 
8930 IF LEFT*(T*,1 >«"<-" THEN 8950 
B940 RETURN 

B950 CHAR ,0,5,L5O*: CHAR ,0,7,L50f: WINDOW 25,4, 
78,19,0: CHAR ,0,12,L50*: N*-"": B*-“": I*-” 
■: S*-"": T*-"": CLOSE 1: GOTO 3390 
B960 REM 

8970 REM "{4SPACE>**»(2SPACE>DRUCKEN DER TYPENLIS 
TEC2SPACE)*** 

8980 REM 

B990 IF LEN(P*> —1 THEN RETURN 

9000 PRINTH1,TAB(25);"P ROGRAMMTYPEN« 
SPACE)IN AUSGABEFOLGE :": PRINT01: Z-Z+2 
9010 FOR 1-1 TO LEN(Rf): P*-MID*(R»,I,1): IF P*-C 
HR*(45) THEN PRINT#1: PRINTDl: Z-Z+2: RETURN 

9020 M-ASC(P*>: M-M-64 

9030 PRINTK1,TAB(28)iP*i*«SPACE):«SPACE ) "; Tf (M> 
: Z-Z+ll NEXT 
9040 REM 

9050 REM "(4SPACE)***(2SPACE)HILFSBILDSCHIRM FUER 
TYPEN-BELEGUNG C2SPACE)«** 

9060 REM 

9070 SLOW : GRAPHIC 0,1: COLOR 4,1: COLOR 0,1 
900O CHAR ,0,0,"(PURPLE) PROGRAMMTYPE 
N-LISTE:",1: CHAR ,0,2 
9090 FOR 1-1 TO 13 

9100 PRINT TAB(1);"(YELLOW)";CHR*(1+64);" : (CYAN 
)";T*(I);TAB(21> ; "(YELLOW)"JCHR*(1+77);" : ( 
CYAN)";T*(1+13): NEXT 

9110 CHAR ,0,16,"(LIG.RED)AUSGABEFOLGE:",1: PRINT 
■ (YELLOW)";R* 

9120 CHAR ,0,18,"(GREEN) DISC / SEITE(3SPACE)- FO 
RMAT : ",1 

9130 CHAR ,1,20,"(LIG.RED)SEITE: (YELLOW)A(2SPACE 
)/ B(2SPACE>— (GREY3)FUER 35 SPUR DISKETTE" 
9140 CHAR ,1,21,"(LIG.RED,5SPACE): (YELLOW>A+ / B 
+ - (GREY31FUER 40 SPURC3SPACE):(2SPACE):" 


<6M0> 

<AFV> 

<RBO> 

<9T7> 

<A58> 

<AD9> 

<CEV> 

<087> 

<2U4> 

<8D1> 

<9L6> 

<9T7> 

<C2V> 

<IGN> 

<ALA> 

<ATB> 

<954> 

<9D5> 

<9L6> 
<9T7> 
<L8J > 
<VKD> 

<2KU> 

<RDJ> 

<FTH> 

<DHH> 

<D0E> 

<KNM) 

<RLD> 

<D05> 

<K54> 

<8T3> 


9150 CHAR ,1,22,"(WHITE)1581 (LIG.RED): (YELLOW,3 
SPACE)*(4SPACE)- (GREY3)FUER 1 S 8 1 DISKETT 
E" 

9160 CHAR ,1,23,"(LIG.BLUE)128* (LIG.RED): (YELLO 
W,3SPACE)@(4SPACE>- (GREY3IFUER 128• ER(3SPA 
CE): (2SPACE): « 

9170 FAST : BRAPHIC 5: RETURN 
9180 REM 

9190 REM "(4SPACE)***(2SPACE)DISKETTEN - FORMAT / 
SEITEN BEARBEITUNGSROUTINE(2SPACE>*** 

920O REM 

9210 V-O: IF LEN(Sf)>2 THEN RETURN 
9220 IF S*-"+" AND F-l THEN F-0: V-l 
9230 IF S*—"A” DR S*-"B" THEN V-l 
9240 IF S*-“A+" OR S*«"B+" THEN V-l 
9250 IF S*-"*" THEN S*=“1581": V-l 
9260 IF S*»"0" THEN S*="12B # ": V-l 
9270 RETURN 
9280 REM 

9290 REM "(4SPACE)***(2SPACE)DIRECT0RY(2SPACE)S 0 
R T I E R E N(2SPACE)»** 

9300 REM 

9310 CHAR ,6,0,"(ORANGE) NEUES(2SPACE)D I R E C T 
O R Y(2SPACEERSTELLEN : ",1 
9320 CHAR .6,2,"(GREY1)ALTES DIRECTORY(4SPACE,GRE 
Y3):(YELLOW,4SPACE)NEUES DIRECTORY" 

9330 CHAR ,1 ,8,"(LIG.RED)»>" 

9340 REM "(4SPACE)***(2SPACE)Z—ZAEHLER BEIM EINLE 
SEN(2SPACE)Y-ZAEHLEH BEIM UEBER1RAGEN(2SPAUE 
)***(15SPACE)***(2SPACE>P*+0*—DISKETTEN ID Z 
UR UBERPRUEFUNG(3SPACEIB—BYTES ZUM LESEBEGIN 
N(2SPACE)*** 

9350 GOSUB 10470: WINDOW 31,8,78,16,1: Z-0: Y-0: 

B-0: U-0: Pf-"": Q-S: O*-"" 

9360 OPEN 15,L, 15: OPEN 2,L,2,"#": REM •' *** (2SPA 
CE >EINLESEN(2SPACE>NAME(2SPACE)UND(2SPACE)ID 
C2SPACE)*** 

9370 PRINT»15,"U1";2;0;S;0: A*-"" 

9380 PRINT#15,"B—P";2:ZZ: FOR 1=1 TO 16: GET #2,1 
*: A*=A*+If: NEXT 

9390 PRINT#15,"B-P";2;ZX: FOR 1=1 TO 3: GET #2,1* 
: Pf-Pf+If: NEXT : A*=A*+P* 

9400 CHAR ,0,4,"(YELLOW)"+A*: CHAR ,0,6,"(LIG.GRE 
EN7RICHTIGE DISKETTE (LIG.RED)(J/N)(LIG.GREE 
N) A*="" 


<850> 

<8D1> 

<HB0> 

<CIB> 

<TE1> 
<OSE> 
<K10> 
<R2C> 

<G36> 
<J0C> 
(FLU) 

(FTV> 
<C5G> 
<0J7> 
<4J1> 
<5F4> 
<7N9> 
<7RA> 
<BG7> 


<BGN> 

<F5S> 

<FDT> 

<CLI> 

<OQE> 


Ui 


9410 PDKE 208,0: BET KEY Af: IF A*="J" THEN 9420: 
ELSE CLOSE 2: CLOSE 15: PLAY "ACACACAC": GO 
TO 1580 

9420 PLAY “A": SCNCLR : WINDDW 31,8,50,16,1 
9430 PRINT#15,"U1";2;0;S;S: REM " (6SPACEMHHK2SPA 
CEXANFANG DER EINLESE ROUTINE(2SPACE)*** 

£T #2,1*: IF I*-"" THEN I*=CHRf(0) 

- ASCII*): REM “(18SPACE>***(2SPACE)FESTSTEL 
LEN DER NAECHSTEN SPUR(2SPACE)*** 

9460 GET #2,If: IF 1*=”" THEN I*=CHR*<0) 

9470 B-ASC(IS): B-2: REM “(14SPACE)***(2SPACE)FES 
TSTELLEN DES NAECHSTEN SEKTOR(2SPACE)*** 

9480 PRINT#15,"B-P";2;B: Z-Z+l: 1=0 
9490 DO : 1=1+1: GET #2,1*: IF I*-"" THEN I*=CHR* 
( 0 ) 

9500 N*(Z)=N*(Z)+If: LDOP WHILE K30: REM "*** EI 
NLESEN EINES EINTRAGES (30 BYT)(2SPACE)*** 
9510 IF ASC(LEFT*(N*(Z),1))—0 THEN N*(Z)="“: Z-Z- 
1: GOTO 9530 

9520 CHAR ,0,8,“(GREY3)": PRINT MIDt(N*(Z),4,16) 
9530 IF 8—226 THEN B-B+32: GOTO 9480: REM "*»*{2S 
PACE)ERHOEHEN UM 32 BYTES FUER DEN NAECHSTEN 
(5SPACE)DIRECTORY EINTRAG(2SPACE)**» 

9540 IF S THEN 9430: REM "(15SPACE)***(2SPACE)SPR 
UNG ZUM NAECHSTEN SEKTOR SOLANGE WIE(5SPACE) 
S>0 IST ( 0 - LETZTER SEKTOR )(2SPACE)*** 
9550 CLOSE 2: CLOSE 15: FOR F-l TO 3: SYS 51900: 
SLEEP 1: NEXT 

9560 PLAY "ACACAC": WINDOW 25,4,78,19,0 
9570 CHAR ,4,14," (LIG.RED)HI1 (GREY3): (LIG.RED) AM 
(GREY3), (2SPACE,GREY1 X—(GREY3) : AENDERN(4 
SPACE),(2SPACE,LIG.BREEN)->(GREY3> : EINGABE 


<00E> 


(5K1 > 
<E67> 

<FOL> 

(A58> 

< AD9> 
<ALA> 
(D91 > 

<9CP> 

<TSS> 


<N7S> 

<5K8> 

<5IR> 

<KNV> 

<5BR> 


9580 CHAR ,15,15,"(YELLOW)S(GREY3,2SPACE): KOMMEN 
TAR(2SPACE),(2SPACE,LIG.RED > * CGREY3,2SPACE): 
LOESCHEN" 

9590 WINDOW 31,8,50,16,0: F-0: W-Z: X-Z: Z-Z+3 
9600 POKE 208,0: IF U-W THEN PLAY "ACACAC": GOTO 
10030 

9610 IF PEEK(212)—83 THEN 9690 

9620 IF PEEK(212)-84 THEN 9730 

9630 IF PEEK(212)“86 THEN 9770 

964© IF PEEK(212)=49 THEN PLAY "A": GOTO 9910 

9650 IF PEEK(212)“46 THEN PLAY "A": GOTO 9840 

9660 IF PEEK(212)-85 THEN PLAY "A": GOTO 9950 

9670 IF PEEK(212)—57 THEN 10460 

9680 GOTO 9600 

9690 REM "(4SPACE)***(2SPACE>LISTEN RAUF(2SPACE)* 

•» 

9700 IF Z>—W+3 THEN PLAY "A": GOTO 9600 
9710 IF Z>=W THEN Z-Z+l: SYS 51900: GOTO 9600 
9720 Z-Z+l: CHAR ,0,8,"(GREY3)": PRINT MID*(N*(Z> 
,4,16): GOTO 9600 

9730 REM "(4SPACE)***(2SPACE)LISTEN RUNTER(2SPACE 
)*»* 

9740 Z-Z-8: IF Z—4 THEN Z-Z+8: PLAY “A": GOTO 96 
00 

9750 IF Z<1 THEN SYS 51914: Z-Z+7: GOTO 9600 
9760 SYS 51914: CHAR ,0,0,"(GREY3)": PRINT MID*(N 
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<T5B> 


<U7K> 

<GVK> 

<9L6> 

<9T7> 

<A50> 

<9EF> 

<1BQ> 

<GDF> 

<OVT> 

<HHO> 

<D2K> 

<QI7> 

<85ö> 

<0D1 > 
<ALA> 

<2LD> 

<FTN> 

<CNe> 


<BLE> 

<C6E> 


<7SQ> 

<402> 

<OLU> 

<2GF> 


<0DJ > 


<€*VT> 

<4D4> 

<OVT> 

<1R9> 

<N0A> 

< 1 V9> 

< I3H> 
<HS6> 

<N70> 

<UE9> 

<RJ0> 

<NMV> 


<TI6> 


<TKO> 

<9LJ> 

<035> 


<S7F> 


<SK5> 

<JTA> 

<0KS> 

<HUD> 

<345> 

< IE1 > 
<E»4M> 
<LVD> 
<01Q> 
<JM7> 
<3P0> 

< AD9> 
<EG2> 
<G20> 

<6EK> 

<0D1 > 

<5LH> 

<ANH> 










LISTINGS 


*(Z>,4,16>: Z-Z+7: GOTO 9600 

<H5H> 

SCHREIBEN - VON NAECHSTEN SEKTORC2SPACE)»*» 

<021 > 

9770 REM "(4SPACE).*»(2SPACE)EINTRAG UEBERTRAGENC 


10280 A=5: B-G+V: IF LK-B OR Y>-D THEN A=0: B-255 

<4HP> 

2SPACE>*** 

<9D5> 

10290 PRINT#2,CHR*(A);CHR*(B): REM ”(3SPACE>***(2 


9780 Z-Z-3: IF ASC(MID*(N*(Z>,4,1>)=152 THEN Z-Z+ 


SPACE >A-SPUR(2SPACE)B=BLOCKC2SPACE >*»» 

<0AU> 

3s SOUND 1,350,100: GOTO 9606 

<AOG> 

10300 C—2: 1=0: DO : I-I+l: IF Y>U THEN B*(Y)=Q* 

<NVC> 

9790 U-U+l: Y-Y+l: B*(Y)=N*(Z): N*(Z)-LEFT*(N*(Z> 


10310 PRINT(tl,"B-P";2;C: REM " (9SPACE)**# C2SPACE) 


,3>+CHR*<l52)+MID*<N*<Z>,4,26) 

< IST> 

SCHREIBEN EINES EINTRAGESC2SPACE)*#* 

<0P2> 

98Ö0 PLAY "A": CHAR ,0,4: PRINT M1D*(NI(Z),4,17): 


10320 PRINTW2.B*(Y);: IF C<226 THEN PRINT#2,CHR*( 


Z=Z+3 

<FS5> 

0); CHR* (0) { 

<RHI > 

9010 WINDOW 55,8,78,17,0 

<JD4> 

10330 C=C+32s Y-Y+l 

<TSC> 

9820 CHAR ,0,F,"(GREY3)“: PRINT MID*(B*<Y),4,161: 


10340 LOOP WHILE I<8 

<T87> 

IF F<9 THEN F=F+1 

<vae> 

10350 PRINT01,"U2";2;0;5;G: REM "C63PACE)«*«(2SPA 


$830 WINDOW 31,8,50,16,0: GOTO 9600 

< 4CF > 

CE1SCHREIBEN DES SEKTOR<2SPACE>**. 

<7KA> 

9840 REM "(4SPACE)««*(2SPACE>ERSTELLEN VON BEMERK 


1036© IF Y>-U THEN 10390: REM "(11SPACE)**#(2SPAC 


UNGSSTRINGSC2SPACE >«»• 

<E50> 

EIFESTSTELLUNG FUER LETZTEN SEKTORC2SPACE)* 


9850 WINDOW 31,12,47,12,1: B*='"' 

<0F4> 

** 

< 10T> 

9860 CHAR , 0,0, “ (LIG.GREEN)-": POK 


10370 G-G+V: IF G>Z THEN G-G-W: REM "C6SPACE>*.«( 


E 200,0: CHAR ,0,0,"CLIG.RED)": POKE 21,2: I 


2SPACEJSEKT0R INTERLEAVE FESTLEGENC2SPACE)* 


NPUT B«: POKE 21,0: PLAY "A": IF LEN<B*)>16 


** 

<3FN> 

THEN 9850 

<P91 > 

103B0 GOTO 10270 

<4HH> 

9870 IF LEN(B*><16 THEN 8*=B*+CHR*(160): GOTO 987 


10390 IF U>X THEN X-U: REM "C14SPACE>»«*C2SPACE>S 


0 

<P8F> 

CHREIBROUTINENC2SPACE>E N D E(2SPACE)*»* 

<GQG> 

9880 WINDOW 31,8,50,16,0: IF LEFT*(B*,1)="►" THEN 


10400 IF K*-"<" THEN BEBIN : S-18: IF M*-"1S81" T 


B*="": Z=Z-3: CHAR ,0,4,"(GREY3)": PRINT MI 


HEN S=40 

<JU2> 

D* <N*(Z),4,16): Z-Z+3: GOTO 9600 

<U2U> 

10410 PRINT«l,"Ul"f2,-0iSi0: REM " C6SPACE)»». C2SPA 


9890 Y-Y+l: B* (Y) -CHR* (128) +CHR* (OJ+CHR* (0) +B*: F 


CE1SCHREIBSCHUTZ WIEDER HERSTELLEN(2SPACE)» 


OR 1-20 TO 30: B*(Y>=B*(Y)+CHR*(0): NEXT 

< 130 > 

** 

<BLT> 

9900 Z-Z-3: CHAR ,0,4,"(GREY3)": PRINT MID*(N*(Z> 


10420 T-7: GOSUB 2590: BEND 

<2DH> 

.4,17): Z-Z+3: BOTO 9810 

<TTB> 

10430 IF V*="+" AND U<X THEN BEGIN : WINDOW 25,18 


9910 REM "(4SPACE)*HH*(2SPACEJLOESCHEN EINES ALTEN 


,78,19,1: CHAR ,6,0,"(LIB. GREEN>DISKETTE IS 


EINTRAGES(2SPACE)«** 

<FTV> 

T (LIB.RED)AUFFORMATIERT AUF 40 SPUREN": CH 


9920 Z-Z-3: IF ASC(MID*(N*(Z),4,l))-152 THEN Z-Z+ 


AR ,7,1,"(LIG.GREEN)VALIDAT BITTE MIT SPEED 


3: SOUND 1,350,100: GOTO 9600 

<1PS> 

ER DURCHFUEHREN" 

<NHQ> 

9930 U-U+l: NS(Z>“LEFT*(N*(Z),3)+CHR*(152)+MID*(N 


10440 PLAY "CACACA": SLEEP 5: GOTO 10460: BEND 

<3E0> 

*(Z),4,26) 

<ELH> 

10450 IF U<X THEN PRINT#1,"V”: REM ”C6SPACE)«**(2 


9940 PLAY "A": CHAR ,0,4: PRINT MID*(N*(Z),4,17): 


SPACE>BAM KORREKTUR GELOESCHTER FILES(2SPAC 


Z=Z+3: GOTO 9600 

<180 

E>*** 

<GEQ> 

995© REM "C4SPACE)«**C2SPACE)AENDERN EINES DIRECT 


10460 CLOSE 1: CLOSE 2: 1=0: DO : 1=1+1: N*d’)-"" 


ORY-EINTRAGES <2SPACE 3 **» 

<ETR> 

: B*(I>=““: LOOP WHILE XX: PLAY "CACACA": 


9960 Z-Z-3: FOR 1=4 TO 19: IF MID*(N*(Z),I,1)-CHR 


GOTO 1580 

<3TE> 

*(160) THEN B*=MID*(N*(Z>,4,1-1): GOTO 9980 

< JNE> 

10470 REM 

<3GF> 

9970 NEXT : 8*=MID*(N*(Z),4,19) 

<JVM> 

10480 REM "(4SPACE)»**C2SPACE)ABFRAGE WELCHES LAU 


9980 CHAR ,0,4,"CYELLQW)": POKE 208,0: POKE 21,2: 


FWERK€2SPACE > *** 

<08O> 

INPUT Bf 

<0JI> 

1O490 REM 

< 001 > 

9990 POKE 21,0: PLAY "A": IF LEN(B*)>16 THEN Z-Z+ 


10500 WINDOW 16,19,17,19,1: SYS 51413: CHAR ,0,0, 


' 3: GOTO 9960 

<RAF> 

"CLIG.GREEN>?": SYS 51420 

<29B> 

10000 IF LEN(BS> <16 THEN BS=B*+CHR*(160): GOTO 10 


10510 L=0: L*="": BET KEY A*: PLAY "A" 

<SGC> 

000 

<IFA> 

10520 IF A*="B" THEN L=8: L*="8" 

<9NL> 

10010 IF LEFT*(B*, 1 )="♦-" THEN BZ=Z-3: CHAR 


10530 IF A*="9” THEN L=9: L*='*9" 

<PVK> 

,0,4,"<GREY3>": PRINT MID*(N*<Z>,4,16): Z=Z 


10540 IF A*="+“ THEN WINDOW 16,19,17,19,1: GOTO 1 


+3: GOTO 9600 

<GDS> 

580 

<M9M> 

10020 N*<Z)=LEFT*(N*(Z>,3)+B*+RIGHT*(N*CZ),11) : Z 


10550 IF L<8 OR L>9 THEN 10500 

<PUF> 

=Z+3: B*="": GOTO 9770 

<09I> I 

1056-* BINDOW 16.19.17.19.1: PRINT "CGREY3}"L*:: I 


10030 REM "C4SPACE)»**C2SPACE>S C H R E 'I B E N<2 


F D=i THEN D=0: RETURN 

<MI2> 

SPACE5DES NEUEN(2SPACE1D I R E C T 0 R YC2S 


10570 OPEN 15,L,IS,“U0>M0": PRINT#15,■10”: INPUT# 


PACE>*** 

<0G3> 

15,EN,EM*,ET,ES 

< I9V> 

10640 WINDOW 25,18,78,19,1 

<M3U> 

10580 IF EN>0 THEN 16030 

<TES> 

10050 SYS 51413: CHAR ,2,0,"CLIG.GREEN>NEUES£2SPA 


10590 REM 

<0G3> 

CE>D I R E C T 0 R Y(2SPACE JSCHREIBEN C2SPAC 


10600 REM "(4SPACE>..*(2SPACE>LAUFWERK ERKENNUNG 


E.LIG.REDX J / N >(LIG.GREEN,2SPACE)?": SY 


( 1541,1570,1571,1581)(2SPACE)»** 

<380 

S 51420 

<BAN> 

10610 REM 

<30D> 

10060 POKE 208,0: GET KEY A*: PLAY "A“ 

<3RM> 

1062O REM "C2SPACE>LAUFWERKWERTE: 77=1581 , 146=1 


10070 IF A*~"J" THEN 1O140 

<TVM> 

571 , 28=1571 BEI DQLPHIN DOS 

<926> 

10080 IF A*="N" THEN 1046O 

<QF0> 

10630 REM "C16SPACEJ151-1541 , 117=1570 

<3GF> 

10090 GOTO 10060 

<69K> 

10640 REM "(2SPACE)S=SPUR , ZZ-BYT-NAME . ZX-BYT- 


1010O REM "C4SPACE > *** C2SPACE)UEBERPRUEFUNG FUER 


ID , ZY-BYT-FORMAT(SCHREIBSCHUTZ) 

<288> 

RICHTIGKEIT DER GLEICHEN DISKETTE(2SPACE)** 


10650 REM "(2SPACE)G=SEKT0R , ID-FORMAT—KENNZEICH 


* 

< 002> 

EN , LB-LOW-BYT , HB=HIGH-BYT 

<209> 

10110 REM 

<0G3> 

10660 REM 

<20A> 

10120 REM "C4SPACE>***C2SPACE)S=SPURC4SPACE)G=SEK 


10670 PRINT#15,"M-R" CHR*(0) CHR*(128> CHR*(1): G 


TOR C4SPACE>V=SEKTQR INTERVALL C2SPACE>*** C30 


ET #15,LW*: LW=ASC(LW*) 

<250> 

SPACE}*** <2SPACE>W=SEKTDRABZUGSWERTC4SPACE> 


10680 M*-”-??-“: S-1B: G=l: ZZ-144: ZX-162: ZY-16 


Z-HOECHSTE SEKTOR(3SPACE)*** 

<O80> 

6: ID-65: LB-1: HB-I 

<FIM> 

10130 REM 

<001 > 

10690 IF LW-77 THEN M*=”15B1": S-40: G-3: ZZ-4: Z 


10140 WINDOW 25,4,7B,19,1: SYS 51413: CHAR ,2,8," 


X-22: ZY=26: ID=68: LB=111: HB=0 

<860> 

(YELLOWJN EUE S(3SPACE)D I RECTORYC 


10700 IF LW-146 OR LW-28 THEN M*="1571" 

<BV5> 

3SPACE,LIG.RED)WIRD GESCHRIEBEN SYS 514 


10710 IF LW-117 THEN M*="1570" 

<9F0> 

20 

<VRT> 

10720 IF LW=151 THEN M*="1541" 

<8GV> 

10150 .. OPEN l,L,15l OPEN 2,L,2,"*" 

<EVV> 

1073O REM "C4SPACE>***C2SPACE>BYT -C3SPACE>3C3SPA 


10160 S=18: G—1: Z-1B: V-3: W-17 

<HHH> 

CE>ERKENNUNG VON EINSEITIGE / DOPPELSEITIGE 


1O170 IF M*="1581" THEN S-40: G-3: Z-38: V-4: W-3 


UND(2SPACE>»»#(14SPACE)***C2SPACE>BYT - 17 


5 

<4SQ> 

3(3SPACE)ERKENNUNG VON 35 / 40 SPUR DISKETT 


10180 PRINT#1,"U1";2;0;S;0 

<QF0> 

EN<1©SPACE)»** 

<3©D> 

10190 PRINTW1,"B-P";2;ZX: FOR 1-1 TO 3: GET #2,1* 


10740 OPEN 2,L,2,"H": PRINT#15, "Ul ",-2[ 0; S; 0: PRIN 


: Q*=Q*+X*: NEXT : GET #2,K*: GET #2,K*: IF 


T#15,"B-P";2;3: GET #2,0*: PRINT#15,”B-P";2 


K*-"<" THEN T-7: BOSUB 2660: REM "(11SPACE 


»173: GET #2,A*: IF A*="" THEN A*-CHR*<©> 

<G6H> 

>***(2SPACE>SCHREIBSCHUTZ AUFHEBENC2SPACE>* 


10750 IF ASC(Q*)“128 THEN PRINT#I5,"U0>M1“ 

<0A5> 

** 

<OVH> 

10760 V-0: V*-"": V-ASCIA*): IF VO0 THEN V*="+" 

<RV0> 

10200 IF Q*-P* THEN 10250 

<BUR> 

1077O CLOSE 2: CLOSE 15 

<9VG> 

10210 WINDOW 25,19,78,19,1: CHAR ,2,0,"CLIG.REDJD 


107B0 REM 

< 106> 

ISKETTE CCYAN1": SYS 51413: PRINT P*;: SYS 


10790 REM "(4SPACE)»**C2SPACE)FEHLERKANAL BEHANDL 


51420: PRINT "CLIG.RED) EINLEGEN 1 (2SPACE.G 


UNG(2SPACE >*** 

<1G7> 

REY3JBITTE EINE TASTE DRUECKEN";: CLOSE 2: 


10BO0 REM 

<4BG> 

CLOSE 1 

<CKS> 

10B1O WINDOW 2,21,78,21,1: CHAR ,0,O,”CLIG.RED>ST 


10220 SOUND 1,350,30: POKE 208,0: BET KEY A*: PLA 


ATUSC2SPACE>:CBREY3>",1: PRINT » ";EN"CLIG. 


Y “A" 

<R1S> 

RED>";EMf;"CGREY3>";ET;ES;: WINDOW 15,18,19 


10230 IF A*=”+" THEN WINDOW 25,4,78,19,1: PLAY "C 


,18,1: PRINT M*:: RETURN 

<FCO> 

ACACA": GOTO 1580 

<F32> 

10820 OPEN 15,L,15: INPUT#15,EN,EM*,ET,ES 

<OHK> 

1O240 GOTO 1O140 

<2PK> 



10250 REM "(27SPACE)#*#(2SPACEJS C H R E I BI2SPA 




CE>- ROUTINE(2SPACE)##* 

<001> 



1026O 0*="": FOR 1=1 TO 30: G*»QS+CHR*(O): NEXT : 




U-Y: W7.-Y/B: D=W7.*8: Y=1 

<PS5> 



10270 PRINTH1,"B-P";2j0: REM “C9SPACE)***C2SPACE> 


Listing 1. (Fortsetzung) 
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10830 IF EN=21 QR EN=74 QR EN=27 THEN EM*-"<LIG.G 
REENJDISKETTE (LIG.RED»EINLEGEN / FORMATIER 
EN" <6M4> 

1084© IF EN=26 OR £N=73 AND H=1 THEN EM»-"BITTE £ 

LIB.BREENJSCHREIBSCHUT2 CLIB.REDIENTFERNEN" <HJ2> 

10850 IF EN-62 THEN EN*=“DATEI (CYAN)"+D*+"CLIB.R 

EDI NICHT BEFUNDEN" <B2N> 

10860 IF EN=63 THEN EM*=“DATEI (CYAN»"*D*+"(LIG.R 

EDI SCHON VORHANDEN" <BM6> 

10870 IF EN=0 THEN CLOSE 15: RETURN <JAT> 

10880 WINDOW 2,21,78,21,1: CHAR ,0,0,"(LIG.REDIST 
ATUS£2SPACE): £GREY3»",1: PRINT " ";EN;: SYS 
51413: PRINT "(LIG.RED»"jEM»;: SYS 51420: 

PRINT ”(BREY31";ET;ES;: IF EN=73 AND H-0 TH 
EN CLOSE 15: BOSUB 10810: GOTO 1570 <NPN> 

10890 SOUND 1,350,30: PRINT»15,"UJ": SYS 65511: H 

-0: IF EN-63 THEN RETURN : ELSE GOTO 1580 <509> 

10900 REM <401> 

10910 REM "£4SPACE»»**(2SPACE»TRAP ROUTINE(2SPACE 

»*** <4GJ> 

10920 REM <4BG> 

10930 IF EROS THEN WINDOW 2,21,78,21,1: SYS 5141 
3: CHAR , 0, 0,'• (LIG. GREEN» FEHLER : ",1: SYS 
51420: PRINT " £CYAN)";ER;" £LIG.RED»";ERR 
* < ER >;"(2SPACE,RVSON,LIG.GREEN) FEHLERZEILE 
: <RVOFF,LIG.RED) ";EL;: GOTO 10960 <B5U> 

10940 IF L<>4 THEN WINDOW 2,21,78,21,1: SYS 51413 
: CHAR ,15,0,"£LIB.GREEN>**»**(2SPACE,LIG.R 
ED)BITTE LAUFWERK(2SPACE,YELLOW)": PRINT L* 

;"<LIG.RED,2SPACEJEINSCHALTEN !(LIG.GREEN,2 
SPACE)**«*»";: SYS 51420 <8LR> 

1095O IF L=4 THEN WINDOW 2,21,78,21,1: SYS 51413: 

CHAR ,15,0,“(LIG.GREEN)*****(2SPACE,L16.RE 
DJBITTE(3SPACE,YELL0W)D RUCKE R(3SPACE, 

LIG.RED>EINSCHALTEN !(LIG.GREEN,2SPACE)***» 

*": SYS 51420: L-0 <8U0> 

10960 SOUND 1,350,30: SYS 65511: RESUME 1580 <COF> 

10970 REM <50L> 

10980 REM "(4SPACE)***(2SPACE>DATEI(2SPACE)S 0 R 

TIERE N(2SPACE)*** <600> 

1099O REM <6GR> 

11000 CHAR ,10,12, "(LIG. RED»DATEI-EINTRAEGE (GREE 

N)WERDEN SORTIERT !* <H62> 

11010 WINDOW 2,21,78,21,1: CHAR ,0,0,"£GREY2»WART 
EZEIT BEI CA. 10O0 EINTRAEGEN ( NICHT VORSO 
RTIERT ! ) ": SYS 51413: PRINT " BIS CA. 6 
MIN.";: SYS 51420: PRINT " <JFJ> 

11020 5B=1: LG<1>=1: RG(1)=N: DO : GOSUB 11030: L 

OOP UNTIL SB=0: GOTO 11100 <CAR> 

11030 LG=LG(SB): RQ=RG(SB): SB=SB-1: DO : GOSUB 1 

1040: LOOP UNTIL LS>=RQ: RETURN <FI8> 

11040 II=LD: J=RO: E=<LQ*RQ>72: XTS=G*(E>: DO : G 
OSUB 11060: LODP UNTIL II>J: IF II<RQ THEN 
SB=SB+1: LG(SB)=II: RG(SB)=RQ <CLR> 

11050 RQ=J: RETURN <FQF> 

11060 IF ASCCXT*>=152 THEN N=N-1 <97P> 

11070 DO UNTIL 6*<II)>=XT*: 11=11*1: LOOP : DO UN 

TIL B*(JX=XT*: J=J-1: LOOP <7FS> 

11080 IF II<=J THEN WW*=G*(II>: G*CII>=G*CJ): G*( 

J)=WW*: 11-11*1: 3-J-l <AOD> 

11090 RETURN <0M7> 

11100 11=0: J=0: LD=0: RO=0: E=0: CN=N-26: WINDOW 
2,21,78,21,1: GOTO 1500: REM "(17SPACE)*** 

(2SPACEJZURUECK ZUM MENUE(2SPACE)*** <GPO> 

11110 REM <1G7> 

11120 REM "(4SPACE)***(2SPACEISCHUETZ UND ENTSCH. 

-(2SPACE»ROUTINE FUER DATEIEN(2SPACE)*** <1B4> 

11130 REM <165> 

11140 POKE 21,2: CHAR ,5,3,”(ORANGE)WELCHE DATEI/ 

EN : ",1: INPUT "(2SPACE,GREY3»";Q*: POKE 21 
,0: PLAY "A": IF LEFT*(Q*,1)-"*" THEN T-8: 

CHAR ,0,3,L50*: GOTO 2710 <C1U> 

11150 CHAR ,0,3,L50*: IF LEN(0*>>16 THEN 11140 <F9E> 

11160 IF K*="<” THEN PRINTW1,"Ul"|2;0;S;0: GOSUB 
2660: F-S: CHAR ,3,15,"(LIG.RED3SCHREIBSCHU 
TZ (LIG.GREEN)- ZUM (GREY1IDATEI (LIG.GREEN 
»BEARBEITEN AUFGEHOBEN REM "(4SPACE)*** 

(2SPACE JSCHREIBSCHUTZ AUFHEBEN(2SPACE)*** <1B5> 

11170 PRINT41,"Ul";2;0;SjG: C-S: D=G: REM "(BSPAC 

E»***(2SPACE»BLOCK EINLESEN(2SPACE»*** <UH2> 

11180 BET »2,1*: IF 1»="" THEN I*=CHR*(0> <R42> 

11190 S»ASC(I*) <VQB> 

11200 GET 42,IF: IF 1*="" THEN I*=CHR*<0> <R01> 

112I0 G-ASCU*): B=2 <NM2> 

11220 PRINTH1,"B-P":2i B: .. REM "C13SPACE»*** 

(2SPACE»EINLESEN DER DATEIEN(2SPACE3*** <LSV> 

11230 1=0: DO : I-I+l: GET «2,1*: IF I*-"" THEN I 

*=CHR*(0) <BR0> 

11240 N*=N*+I*: LOOP WHILE I<30 <CDG> 

11250 IF 0*=MID*(N*,4,LEN(0*)> THEN BEGIN : U-l) 

REM "***(2SPACE)ERMITTELN DER DATEIEN(2SPAC 
E»*»* <MBF> 

11260 PRINT41,"B-P";2;B: BET #2,A*: IF A*="" THEN 

A*=CHR*(0) <B40> 

11270 IF T=7 THEN A=ASC(A*) DR 64: REM "(14SPACE) 

***(2SPACE3SCHUETZEN(2SPACE »*** <9TJ> 

11280 IF T=8 THEN A=ASC(A*> AND 191: REM "(12SPAC 

E » »**(2SPACE> ENTSCHUET ZEN(2SPACE ?*** <L80> 

11290 PRINT41,"B—P";2;B: PRINT42,CHR*(A)i: BEND <R9N> 

11300 IF B-226 THEN B=B+32: GOTO 11220: REM “(9SP 
ACE »***(2SPACE »ERHOEHEN DES BYTWERTES(2SPAC 
E»*** <599> 

11310 IF U=1 THEN PRINT«1,”U2";2;0;C;D: U=0: REM 
"(3SPACEJ***(2SPACE)SCHREIBEN DES BL0CKES(2 
SPACE»*** <7R4> 


11320 IF S THEN 11170: REM ■<24SPACE»***£2SPACE»E 

INLESEN FORTSETZEN(2SPACE)*** <81S> 

11330 CHAR ,2,15,"£GREY2,2SPACE»BEI AENDERUNGEN E 

NTSCHUETZEN NICHT NOTWENDIG !(3SPACE)” <DTQ> 

11340 IF K*="<" THEN S=F: PRINT«1,"Ul";2;0;S;0: G 
OSUB 2590: REM "(29SPACE»***(2SPACE»SCHREIB 
SCHUTZ DER DISKETTE WIEDERHERSTELLEN(2SPACE 
»*** <VTR> 

11350 CLOSE 2: CLOSE 1: A=0: B=0: C=0: D=0: F=0: 

.. Q*="": N*="": GOTO 2270 <V21> 

11360 REM <184> 

11370 REM "(4SPACE»***(2SPACE»FORMATIEREN VON DIS 

KETTEN IN MODUS 1541, 71, 81(2SPACE)*** <105> 

11380 REM <20A> 

11390 D-l: GOSUB 10480: WINDOW 25,4,7B,19,0: CHAR 
,9,3,"(ORANGE»WELCHES FORMAT(2SPACE,GREY3» 

A.: (L18.RED341(2SPACE.BREY3»/(2SPACE»B. : £ 

LIG.RED571,81" <BJC> 

11400 POKE 208,0: GET KEY A*: PLAY "A": SLEEP 1 <L5E> 

11410 IF A*="A" THEN OPEN 15,L,15,"U0>M0”: GOTO 1 

1450 <2AD> 

11420 IF A*—'B" THEN OPEN 15.L.15,"U0>M1": GOTO 1 

1450 <3AB> 

11430 IF A*-"*" THEN CLOSE 15: GOTO 1570 <E6K> 

11440 GOTO 11400 <49U> 

11450 PRINT«15,“N0:DISPO 128(2SPACE3V1.0,00": CLO 

SE 15: BOSUB 10820 <DT0> 

11460 CHAR ,0,3,L50*: GOSUB 10570: WINDOW 25,4,78 

,19,0: T-9: GOTO 2170 <SG7> 

11470 REM <2BB> 

114B0 REM "(4SPACE)»**(2SPACE»FEHLERKANAL AUSLESE 

N(2SPACE)*** <184» 

11490 REM <105> 

11500 D=l: M*="”: WINDOW 15,18,19,18,1: GOSUB 104 
80: GOSUB 10820: IF EN>@ THEN 1580: ELSE GO 
SUB 10810: GOTO 1570 <I3R> 


Listing 1. (Schluß) 
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FÜR 


VPreis: 2000 DM 
2»Preis: 1000 DM 
3*Preis: 500 DM 


S ie programmieren gern oder haben schon interessante 
Software entwickelt? Halten Sie Ihre Meisterwerke 
nicht im stillen Kämmerlein zurück. Wir suchen tolle 
Programme für den CI 28 — und Sie haben die Chance, 
bis zu 2000 Mark zu gewinnen. Schicken Sie Ihre Pro¬ 
gramme mit Diskette und ausführlicher Beschreibung an: 


MARKT &TECHNIK VERLAG AG 
Redaktion Sonderhefte 
Stichwort: Top-Listing C 128 
Hans-Pinsel-Straße 2 
8013 Haar bei München 

Einsendeschluß: 31.10.89 














LISTINGS 


O b Sie Disketten manipulieren, vor Überschreiben 
schützen oder nach dem Soft-Formatieren restaurie¬ 
ren wollen - kein Problem für »Floppy-Support«. Die¬ 
ses schnelle Maschinenspracheprogramm für den 80-Zei- 
chen-Modus läßt in dieser Beziehung kaum noch Wünsche 
offen. Ein integrierter Diskettenmonitor rundet die Vielzahl 
der Funktionen des Programms ab. 

Da das Programm bei einigen Routinen den BURST-Mo- 
dus der Floppies 1570 und 1571 aufruft, ist es nur mit diesen 
Diskettenstationen lauffähig. Jedes andere, ungeeignete 
Laufwerk wird automatisch erkannt (z.B. die 1541), und das 
Programm verweigert unter entsprechendem Hinweis den 
Start. 

»Floppy-Support« besteht aus zwei Teilen, die Sie bitte 
mit dem MSE eingeben. Entsprechende Hinweise finden 
Sie auf Seite 158. 

Das Startfile (Listing 1) wird wie ein Basic-Programm ge¬ 
laden und aufgerufen: 

RUN"FLOPPY-SUPPORT" 

Danach lädt dieses File das Hauptprogramm »F.S.« (Li¬ 
sting 2), das anschließend den Speicherbereich von $1300 
(4864) bis $44DD (17629) belegt. Der Disketten-Magier be¬ 
nutzt automatisch den DIN-Zeichensatz, auch wenn die 
ASCII/DIN-Taste nicht gedrückt ist. 

Funktionen des Programms 


Fünf Wahlmöglichkeiten bietet das Hauptmenü (siehe Bild 
1), bei denen wiederum weitere Untermenüs aufgerufen 
werden können. Aber zunächst noch einige grundsätzliche 
Anmerkungen zur Bedienung des Programms: 

In der untersten Status-Zeile wird die Geräteadresse des 
gerade aktuellen Laufwerkes angezeigt. Wie Sie später se¬ 
hen werden, kann diese geändert werden und alle Werte 
zwischen »8« und »11« annehmen. Ebenfalls angezeigt wer¬ 
den momentane Situationen: Aufforderungen wie Drücken 
bestimmter Tasten, Meldungen wie Floppy- und Eingabe¬ 
fehler oder andere wichtige Daten. Ein Glockenton 
(BELL=PRINT CHR$(7)) macht Sie jedesmal darauf auf¬ 
merksam, wenn in dieser Zeile eine für Sie interessante Mit¬ 
teilung steht. 

Wenn Sie mehrere Disketten bearbeiten (oder sich nur 
die Daten darauf ansehen) möchten, sollten Sie unbedingt 
beachten, daß ein Diskettenwechsel nur im Hauptmenü 
möglich ist (auf Ausnahmen weist das Programm hin). 

Im gelben Kasten unterhalb der Autorenzeile gibt das 
Programm an, welchen Menüteil Sie gerade aufgerufen ha¬ 
ben. Jede Unterprogrammfunktion führt durch einen be¬ 
stimmten Menüpunkt ins Hauptmenü zurück. 

Mit <CURSOR-aufwärts> und <CURSOR-abwärts> 
wählen Sie die einzelnen Punkte an. Dabei erscheint der 
angewählte Menüpunkt mit einem reversen Balken. Durch 
Druck auf die RETURN-Taste läßt sich das gewünschte Un¬ 
terprogramm aktivieren. 

1. Floppy-Support 128 verlassen: 

Nach einer Sicherheitsabfrage beendet das Programm 
seine Arbeit und führt einen System-Reset aus. Alle nicht 
gespeicherten Veränderungen an der Diskette gehen da¬ 
mit verloren. 

2. Diskette betrachten: 

Hier rufen Sie ein Untermenü auf, das folgende Funktio¬ 
nen bietet: 

2.1 Basic-Directory anzeigen 

Das Disketteninhaltsverzeichnis erscheint in bekannter 
Weise (aktive NO SCROLL-Taste) auf dem Bildschirm. Be¬ 
nutzt wird die Original-ROM-Routine des C128 ab Adresse 
$A07E. Mit dieser Funktion können Sie auch sofort nach¬ 
prüfen, ob die unter den anderen Programmpunkten von 


Disketten-Magier 

Das Betriebssystem der Floppies 
eine Fülle von Möglichkeiten, die das 
C128 nicht unterstützt. »Floppy- 
Hilfe und nutzt das 

Ihnen veranlaßten Veränderungen auf der Diskette ord¬ 
nungsgemäß übernommen worden sind. 

2.2 Programm-Startadressen 
Diese sehr nützliche Funktion versetzt Sie in die Lage, 
sich die Startadressen sämtlicher PRG-Files der eingeleg¬ 
ten Disk auf dem Bildschirm auflisten zu lassen. (Speziell 
für Assembler-Programmierer recht interessant!) 

Unter Verwendung des Burst-Mode erreicht die Floppy 
eine recht ansehnliche Einlesegeschwindigkeit, was sich 
vor allem bei großen Directories positiv auswirkt. 

Auf dem Bildschirm erscheinen die Programmnamen in 
tabellarischer Form, versehen mit den Startadressen in de¬ 
zimaler und hexadezimaler Darstellung. Mit Hilfe dieses 
Menüpunktes lassen sich beispielsweise nach Deformatie- 
rung einer Diskette die Files wieder identifizieren (der Na¬ 
me geht ja verloren). 



Bild 1. Floppy-Support bietet eine Vielzahl von Auswahl¬ 
möglichkeiten, die Sie mit den Cursor-Tasten anwählen 

2.3 Disketten analysieren 

Hiermit können Fremdformate anderer Floppies unter¬ 
sucht werden. Erkennen die Disk-Stationen 1570/1571 ein 
MFM-Format, erscheint eine ausführliche Parameter- 
Aufstellung, mit der der versierte Floppy-User einige inter¬ 
essante Informationen erhält. 

Diese Liste enthält die kleinste und größte Sektornum¬ 
mer auf Track 18, die Anzahl der Sektoren, die logische 
Spurnummer des physikalischen Track 18, die Sektoren¬ 
größe (Bytes pro Sektor) und schließlich den gültigen Sek¬ 
torversatz. 

Trifft die Floppy-Station auf das Commodore-Format 
(GCR), wird die für diese Disk gültige ID ausgegeben, das 
heißt die Daten sind identisch mit der ID, die Sie beim letz¬ 
ten Hard-Formatieren eingegeben haben. Sie kann sich da¬ 
durch natürlich von der tatsächlichen ID in der BAM unter¬ 
scheiden. 

2.4 Neue Geräteadresse anmelden 

Eine gewünschte Laufwerksadresse kann hier angege- 


28 



SONDERHEFT 44 












LISTINGS 



1570/1571 bietet 
Basic 7.0 des 
Support» schafft 
Laufwerk richtig. 

ben werden. Vor allem dann, wenn Sie mit mehreren 
Floppy-Stationen arbeiten, ist dies eine hilfreiche Funktion. 
Achten Sie aber bitte darauf, daß das angewählte Laufwerk 
auch angeschlossen beziehungsweise eingeschaltet ist, 
da sonst ein Rücksprung ins BASIC erfolgt (Reset). Sie kön¬ 
nen die Geräteadressen »8« bis »11« verwenden. 



Bild 2. Mit dem eingebauten Disk-Monitor lassen sich alle 
dargestellten Byte der Diskette verändern 

3. Diskette manipulieren 

Das ist der wohl interessanteste Teil aus dem Hauptme¬ 
nü. Sie verändern damit signifikante Bytes auf Diskette. 

3.1 Name und ID ändern 

Was sonst nur bei einer »harten« Neuformatierung mög¬ 
lich ist, erledigt dieses Unterprogramm mit wenigen Einga¬ 
ben: Umbenennen des Directory-Headers. Zunächst wer¬ 
den der gültige Name und die ID-Kennung eingelesen und 
auf dem Bildschirm angezeigt. Nun erscheint der Eingabe- 
Cursor. Jetzt wird zwischen den beiden Balken, die die 
Feldlänge des Eingabestrings bestimmen, der neue Na¬ 
men eingegeben. Nach Druck auf die RETURN-Taste kom¬ 
men Sie ins »ID«-Feld, in das statt wie üblich 2 sogar 5 Byte 
eingetragen werden können. Drücken Sie im Feld »Neuer 
Name« nur die RETURN-Taste, so bleibt alles wie gehabt, 
das Programm kehrt ins Hauptmenü zurück. Zur Eingabe 
lassen sich alle Tasten verwenden, die sich nicht zerstö¬ 
rend auf eine Bildschirmmaske auswirken (keine Cursorta¬ 
sten, Löschen des Bildschirms etc.) 

3.2 Diskette schützen/freigeben 

Das Programm prüft, ob die einliegende Disk bereits 
schreibgeschützt ist. Das Ergebnis erscheint in der Status¬ 
zeile unten. Es bleibt nun Ihrer Entscheidung überlassen, 
ob Sie die Diskette softwaremäßig mit einem Schreibschutz 
versehen (Änderung des Formatkennzeichens in Spur 18, 
Sektor 0) oder diesen Programmpunkt verlassen möchten. 

3.3 Formatierte Diskette retten 

Um irgendwelchen Spekulationen gleich vorzugreifen: 
Diese an sich sehr hilfreiche Funktion läßt sich nur bei »soft¬ 


formatierten« Disketten anwenden. Wenn also beim »verse¬ 
hentlichen« Neuformatieren keine ID mit angegeben wur¬ 
de. Bei »hart« formatierten Disketten (mit ID) hat auch die¬ 
ses Programm keinen Erfolg, die Bytes wurden ein für alle 
Mal von der Disk getilgt. 

Mit der 1570 lassen sich nur einseitige Disketten restau¬ 
rieren, die 1571 schafft auch doppelseitige. Zuerst werden 
die Linkadressen der einzelnen Files (die ja beim »Softfor¬ 
matieren« nicht wirklich gelöscht werden) gesucht und ein¬ 
gelesen, anschließend vom Programm wieder logisch ver¬ 
knüpft. Die alten Filenamen werden vom Programm nicht 
wiederhergestellt, statt dessen erhält jedes restaurierte 
File eine Zahl in aufsteigender Reihenfolge ab »1«. Durch 
einen besonderen Algorithmus ist es dem Autor gelungen, 
die Fehlerquote an »Nieten« erheblich zu senken. Auch hier 
wird der Burst-Modus angewandt. 

3.4 Boot-Sektor auftragen 

Diese Funktion hat gegenüber gleichartigen Program¬ 
men zum Erzeugen eines Boot-Sektors einen großen Vor¬ 
teil: Sollte er bei nahezu voll bespeicherten Disketten be¬ 
reits von einem anderen Programm belegt sein, so kann er 
mit dieser Routine wieder »freigemacht« werden, die alten 
Daten werden an eine andere Stelle auf der Diskette ver¬ 
schoben. Daraus ergibt sich, daß auf so einer Diskette noch 
mindestens ein Block frei sein muß. 

Mit dieser Routine können Programme automatisch ge¬ 
laden und gegebenenfalls auch sofort gestartet werden. 
Das Programm überprüft zuerst, ob der Boot-Sektor 
(Spurt, Sektor 0) bereits belegt ist. Falls ja, wird analysiert, 
ob von einem File auf Diskette oder von einem fremden 
Boot-Sektor. Das Ergebnis bekommen Sie in der Statuszei¬ 
le mitgeteilt. Ist der Sektor frei, wird er direkt aufgetragen, 
andernfalls haben Sie die Möglichkeit, ihn zu überschrei¬ 
ben oder seine Daten an eine andere Stelle auf der Diskette 
zu »S' n aben«. 

Geben Sie den Programmnamen ein, für den der Boot- 
Sektor gelten soll, eventuell anschließend einen beliebigen 
Basic-Befehl, der nach dem Laden ausgeführt werden soll. 
Damit können auch Assembler-Programme gestartet oder 
andere Angaben (POKEs etc.) gemacht werden. Nach er¬ 
folgreicher Installation des Boot-Sektors kehrt das Pro¬ 
gramm ins Hauptmenü zurück. 

4. Floppy-Kommando senden 

Mit diesem Menüpunkt lassen sich im Prinzip alle DOS- 
Anweisungen (zum Beispiel der Formatierungs-Befehl) 
ausführen, die von Basic her nach folgendem Schema’be¬ 
kannt sind: 

OPEN 1,8,15, "N:Sonderheft 44":CL0SE1 

Die lästigen OPEN- und CLOSE-Anweisungen entfallen 
in diesem Menüpunkt: 

N:Sonderheft 44 

Eine softwaremäßige Umschaltung in den 1541-Modus 
(U0 größer MO) hat keinen Erfolg, aufgrund der verwende¬ 
ten Burst-Routinen muß die Floppy unbedingt im 
1570/1571-Modus bleiben. Die Statuszeile bringt die Mel¬ 
dung des Floppy-Fehlerkanals. 

Der integrierte Diskettenmonitor wird aufgerufen, wenn 
Sie im Hauptmenü den Punkt »Editor für Diskette« mit 


Kurzinfo: Floppy-Support 


Programmart: Hilfsprogramm für Diskettenmanipulationen 
Laden: RUN "FLOPPY-SUPPORT" 

Start: Automatisch 

Besonderheiten: Das Programm ist nur im 80-Zeichen-Modus 
lauffähig. Eingebauter Disk-Monitor, mit dem sich Programme zu¬ 
rückverfolgen lassen. Erstellen einer bootfähigen Diskette, auch 
wenn die entsprechenden Sektoren bereits belegt sind. 
Programmautor: Christian Eiglmeier 
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Druck auf die RETURN-Taste auswählen. Ab sofort er¬ 
scheinen in der unteren Statuszeile keine Meldungen mehr, 
sondern der aktuelle Track und Sektor (als Hexzahlen) der 
Diskette, der gerade bearbeitet wird. Ebenso finden Sie am 
Bildschirm oben eine neue Menüzeile, die Ihnen Aufschluß 
über die wählbaren Funktionen gibt. Ausgewählt werden 
diese durch die in Klammern gesetzten Buchstabentasten. 

Folgende Befehle stehen zur Auswahl: 

Init 

Diese Anweisung (I-Taste) bildet die Ausnahme: Sie dür¬ 
fen Disketten auch mitten in einem Unterprogramm wech¬ 
seln, das muß jedoch mit diesem Befehl angemeldet wer- 

Der Diskmonitor 


den. Unterlassen Sie dies, erscheint die Fehlermeldung 
»Burst error: disk changed«. Auch wenn sonst während der 
Arbeit mit dem Diskmonitor diese Meldung auftritt, sollten 
Sie den Init-Befehl ausführen. 

Track 

Damit wird die Nummer der aktuellen Spur um »1« er¬ 
höht. Die maximale Zahl ergibt sich aus Floppy-Typ und der 
Anzahl der Diskettenseiten. Der Aufruf erfolgt mit der T- 
Taste. Ist die maximale Anzahl der Spuren erreicht, beginnt 
der Zähler mit der ersten Spur. Wenn Sie nun die erste Spur 
der Diskette einiesen wollen, müssen Sie so oft die T-Taste 
drücken, bis diese Spur angezeigt wird. 

Sektor 

Durch diese Funktion (S-Taste) wird die gerade gültige 
Sektor-Nummer erhöht. Die Höchstzahl ist von der Spurka¬ 
pazität abhängig. Auch hier beginnt der Zähler wieder beim 
ersten Sektor, wenn die maximale Anzahl erreicht ist. 

Read 

Die aktuelle Spur und der eingestellte Sektor, die beide 
in der Statuszeile unten angegeben sind, werden in den 
Speicher eingelesen und angezeigt (R-Taste). Ein Beispiel 
finden Sie in Bild 2. Auch hier macht sich der Burst-Modus 
durch seine Geschwindigkeit bemerkbar. Für die Bild¬ 
schirmausgabe wurden einige Routinen des C128-inter- 
nen Maschinensprache-Monitors TEDMON verwendet, 
daher die Ähnlichkeit. Mehr über diesen eingebauten Mo¬ 
nitor des C128 erfahren Sie in unserem Kurs ab Seite 118. 
Edit 

Wählen Sie diese Funktion (E-Taste), so muß sich ein be¬ 
liebiger Sektor im Speicher beziehungsweise auf dem Bild¬ 
schirm befinden. Es erscheint ein feststehender Cursor auf 
dem ersten Byte des Sektors, der mit den Cursortasten be¬ 
liebig in alle Richtungen bewegt werden kann - zumindest 
innerhalb des Hexdump-Feldes. Wenn Sie ein Byte verän¬ 
dern, erscheint es in roter Farbe. Die Änderung wirkt sich 


allerdings nicht in der Anzeige der Character-Codes am 
rechten Bildschirmrand aus. Erst nach dem Zurückschrei¬ 
ben und späteren Wiedereinlesen des Sektors finden Sie 
die geänderten Bytes auch dort vor. 

Beachten Sie bitte bei der Eingabe, daß das gesamte By¬ 
te geändert werden muß, nicht nur ein Nibble (halbes Byte). 
Mit der RETURN-Taste wird der Editier-Modus verlassen. 
Write 

Nach Druck auf die W-Taste schreiben Sie den aktuellen, 
angezeigten Sektor wieder auf die Diskette zurück. Erst 
jetzt sind irgendwelche geänderten Byte dauerhaft festge¬ 
halten. 

Next 

Dieser Befehl (N-Taste) lädt den nächsten, logisch fol¬ 
genden Sektor in den Speicher, die Track- und Sektor- 
Nummern finden Sie in Byte 0 und 1 eines jeden angezeig¬ 
ten Sektors. 

Last 

Diese Funktion (L-Taste) ist bislang einmalig und bei kei¬ 
nem anderen Diskettenmonitor vorhanden. Der Befehl ist 
genau das Gegenteil der Next-Funktion. Sie können nun 
auch rückwärts und nicht nur vorwärts »blättern«. Mit dem 
»letzten« Sektor auf Diskette hat dieser Befehl nichts zu tun. 
Gemeint ist vielmehr der Sektor, der mit dem aktuellen im 
Speicher logisch als der vorhergehende verknüpft ist. Da¬ 
mit können Sie auch Files zurückverfolgen und die Suche 
nach dem Fileanfang um einiges verkürzen. Besonders 
nützlich ist diese Funktion, wenn Sie eine Spur eingelesen 
haben, die bereits die File-Mitte anzeigt. 

Hard 

Falls Sie einen EPSON-kompatiblen Drucker (zum Bei¬ 
spiel EPSON FX-80+) besitzen, können Sie sich mit der H- 
Taste eine Hardcopy Ihres aktuelleh Bildschirms aus- 
druckon lassen. Sie müssen jedoch in Kauf nehmen, daß 
nicht nur der Hexdump des eingelesenen Sektors auf dem 
Papier erscheint, sondern auch sämtliche anderen Eintra¬ 
gungen, die sich auf dem Bildschirm befinden (Copyright- 
und Statuszeilen, Menüleiste etc.). 

Quit 

Der Diskmonitor wird mit der Q-Taste verlassen, das Pro¬ 
gramm kehrt ins Hauptmenü zurück. 

Nachdem Sie nun alle Befehle von Floppy-Support ken¬ 
nengelernt haben, können Sie ans Werk gehen und eine 
Vielzahl von Manipulationen an Ihren Disketten durchfüh¬ 
ren. Gehen Sie jedoch sehr sorgfältig mit dem Programm 
um, schnell ist eine Diskette zerstört und die enthaltenen 
Programme unbrauchbar. Solchen unliebsamen Erfahrun¬ 
gen gehen Sie am besten aus dem Weg, indem Sie sich von 
jeder Diskette, die Sie bearbeiten wollen, eine Sicherheits¬ 
kopie anfertigen. 

(Christian Eiglmeier/Harald Beiler/ag) 
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SONDERHEFT 44 










Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 


64’er-Sonderheft 44: 
Top-Anwendungen 
für alle 
C128-Besitzer 

Gredi: Nutzen Sie mit diesem Zei¬ 
chenprogramm den 80-Zeichen- 
Bildschirm Ihres CI28 voll aus. Für 
Textfunktionen ist ein Zeichen¬ 
satzeditor integriert. Bilder im 
PrintFox-Format lassen sich pro¬ 
blemlos in das Gredi-Format kon¬ 
vertieren. Drucker-Voraussetzung: 
Epson-Kompatible. 

Dispo 128 (siehe Abb.l) 

Die komfortable Verwaltung einer 
umfangreichen Diskettensamm¬ 
lung ist für jeden Computerbesit¬ 
zer unentbehrlich. Der besondere 



10 Leenflsketten 5V4' 
ajm Sonderpreis von DM 19,90 

Besloll-Nt 39000. 2sei6g, 
doppelte Dichte DS/DD. 40 Spuren, 
48 tp< mit Vbtsiärkungsring 
und Schreibschutzkerbe 
inkl. Labelsel, unformatiert. 



Vorteil von »Dispo 128«: Das Pro¬ 
gramm erkennt automatisch das 
verwendete Diskettenformat, und 


Sie behalten 
alle Disketter 
Format. 

Flowchart: 

strukturiertes 
werfen Sie am 
diagramm, » 
daraus autom 
chende Basic 


die Übersicht über 
im 1540/1571/1581- 


Das Werkzeug für 
Programmieren: Ent- 
Bildschirm das Fluß- 
Flowchart« generiert 
atisch das entspre- 
:-Programm. 



Markt&Technik 

Zeitschriften • Bücher 

Software • Schulung 


Floppy Support: Dieses lei¬ 
stungsfähige Disketten-Utility für 
die Floppy 1570/1571 erlaubt 
umfangreiche Manipulationen. 
Direkten Zugriff auf die Disketten 
erhalten Sie durch den eingebau¬ 
ten Diskettenmonitor, der die Viel¬ 
zahl der mächtigen Funktionen 
abrundet. 


Weiterhin befinden sich auf der 
Diskette alle Programme, die im 
Inhaltsverzeichnis des 64’er-Son- 
derhefts 44 mit einem Disketten¬ 
symbol gekennzeichnet sind. 


Diskette für CI28 
Bestell-Nr. 15944 

DM 29,90* sFr 24,907öS 299,-* 






















PROGRAMMSERVICE 



Sie suchen packende 
Spiele, hilfreiche Utilities 
und professionelle An¬ 
wendungen für Ihren 
Computer? Sie wünschen 
sich gute Software zu 
vernünftigen Preisen? 

Hier finden Sie beides) 
Unser stetig wachsendes 
Sortiment enthält interes¬ 
sante Listing-Software 
für alle gängigen 
Computertypen. Jeden 
Monat erweitert sich 
unser aktuelles Angebot 
um eine weitere interes¬ 
sante Programmsamm¬ 
lung für jeweils einen 
Computertyp. 

Wenn Sie Fragen zu den 
Programmen in unserem 
Angebot haben, rufen 
Sie uns an: 

Telefon (089) 4613-640 

Bestellungen bitte nur gegen 
Vorauskasso an: Markt&Technik 
Verlag AG, Unternehmens- 
bereicn Buchverlog, Hons-Pinsel- 
Straße 2, D-8013 Haar, 

Telefon (089) 4613-0. 

Schweiz: 

Markt&Technik Vortriebs AG, 
Kollerstrasse 37. CH-6300 Zug, 
Telefon (042) 440550. 

Österreich: 

Markt&Technik Verlaa Gesell¬ 
schaft m.b.H., Große Nougasso 
28, A-1040 Wien, Telefon 
(0222)5871393-0; 
Microcomput-ique, E. Schiller, 
Göglstraße 17, A-3500 Krems, 
Telefon (02732) 74193; 
MES-Vorsand, Postfach 15, 
A-3485 Haitzendorf: 

Bücherzentrum Meidling, 
Schönbrunner Straße 261, 
A-1120 Wien, 

Telefon (0222) 833196. 

Bestellungen aus ondoren 
Ländern bitte nur schriftlich an: 
Markt&Technik Verlag AG, 

Abt. Buchvertriob, Hans-Pintol- 
Straße 2, D-8013 Haar, und 
gegon Bezahlung der Rechnung 
im voraus. 

Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die abge¬ 
druckte Postgiro- 
Zahlkarte, oder senden 
Sie uns einen 
Verrechnungs-Scheck mit 
Ihrer Bestellung. Sie 
erleichtern uns die 
Auftragsabwicklung, und 
dafür berechnen wir 
Ihnen keine Versand¬ 
kosten. 



64'er-Sonderheft 42: 
Einsteiger-Paket: 

Text II: Die besondere Textverarbeitung mit 80 Zeichen pro Zeile. 
Wordwrapping, Formatieren im Blocksatz, deutsche Tastatur und 
flexible Druckersteuerung gehören zu diesem sehr schnellen Textpro¬ 
gramm (geeignet nur für Monitor-Besitzer). SMON: Dringen Sie mit 
diesem leistungsfähigen Speichermonitor in die Tiefen Ihres Compu¬ 
ters vor. Der integrierte Diskettenmonitor gibt volle Kontrolle über die 
Floppystation. Master-Copy Plus: Bei Unmengen von Software für 
den C64 tut ein Kopierprogramm not. Genau hier setzt unser Pro¬ 
gramm Master-Cop/ Plus an. Checksummer V3 und MSE: Wollen 
Sie Listings abtippen? Zwei Eingabehilfen, die das fehlerfreie Abtip¬ 
pen von Programmen wesentlich erleichtern. Die Anleitungen zu den 
einzelnen Programmen befinden sich auf der Diskette und können mit 
dem Programm Text II eingelesen werden. 

Bestell-Nr. 15942 DM 19,90* (sFr 17,-VöS 199,-*) 


64'er-Sonderheft 41: 

Floppy optimal genutzt 

Disc-Wizard: Dieses außergewöhnliche Disketten-Utility ist für jeden 
Floppy-Besitzer ein unentbehrliches Hilfsmittel. Es enthält unter ande¬ 
rem einen komfortablen Dlskettenmonitor und eine Sortierfunktion für 
Directory-Einträge. Der Disc-Wizard macht Sie zum Zaubermeister 
über Ihre Disketten. Disc-Basic: Mit 33 neuen Befehlen gehören 
umständliche Programme zur Bedienung der Flopp/ der Vergangen¬ 
heit an. Das Anlegen einer relativen Datei erledigt diese Spracherwei- 
terung zum Beispiel mit einem einzigen Befehl. Die neuen Befehle 
machen Schluß mit dem bisherigen Ffappy-Kauderwelsch. Diskprint: 
Viele pfiffige Details lassen die Arbeit mit dieser Diskettenverwaltung 
zu einem wahren Vergnügen weiden. Bis zu 250 Disketten werden 
von demProgramm verwaltet. Die integrierten Editierfunktionen sor¬ 
gen für Übersichtlichkeit am Bildschirm und beim Ausdruck. 64'er- 
DOS V4 und Autostart: Auch Bewährtes läßt sich noch verbessern: 
Der Floppys-Speeder mit integriertem Monitor SMON läßt sich jetzt 
in jeden C64 und in jede Floppy einbauen. Mit dem Autostart- 
System werden Programme sofort nach dem Einschalten automa¬ 
tisch geladen und gestartet. (Die Programme müssen auf EPRC" ‘ 
gebrannt werden.) Disk-Tape-Backup: Aufatmen für jeden 
Datasetten-Besitzer: Mit diesem Programm wird das Kopieren von 
Flopp/ auf Datasette zum Kinderspiel. Ein eingebauter Schnellader 
soigt dabei für Komfort. Wfeiterhin befinden sich auf der Diskette alle 
Programme, die im Inhaltsverzeichnis des 64'er-Sonderhefts 41 mit 
einem Diskettensymbol gekennzeichnet sind. 

Eine Diskette 

Bestell-Nr. 15941 DM 1990* (sFr 17,-*/öS 199,-*) 


64'er-Sonderheft 40: 

Das Basic-Paket s **«— S \\ / 
für Programmierer und Anwender 

Exbasic Level II: Ehemals kommerziell vertrieben, macht diese 
Basic-Erweiterung Ihren C64 zu einem Kraftpaket: über 70 neue 
leistungsfähige Befehle - eine professionelle Programmierhilfe. 
Basic-Korrtroll-System: Machen Sie Schluß mit Syntaxfehlem und 
unsauberem Programmier-Stil In Ihren Basic-Programmen! Wie ein 
Detektiv spürt das Basic-Kontroll-System die häufigsten Programm¬ 
fehler auf und hebt so das Qualitätsniveau Ihrer Software. Synthe¬ 
sizer: Experimentieren Se mit den Sound-Fähigkeiten Ihres C64: Die 
Tastatur wild zum Keyboaid, mit dem Sie dem Computer fan¬ 
tastische Klänge entlocken. Kreuzworträtsel: Mit diesem hervor¬ 
ragenden Programm wird es ein Kinderspiel, selbst schwierigste 
Kreuzworträtsel zu erstellen. Die einfache Bedienung und die gelun¬ 
gene Druckausgabe der fertigen Rätsel bieten alle Voraussetzungen 
für viele Stunden Rätselspaß. Weiterhin befinden sich auf der 
Diskette alle Programme, die im Inhaltsverzeichnis des 
Sonderhefts 40 mit einem Diskettensymbol 
Eine Diskette 

Bestell-Nr. 15940 DM 29,90* sFr 24,90*/öS 

64'er-Sonderheft 39: 

Das Komplett-Paket für professio¬ 
nelles Desktop Publishing 

Giga-Publish: Ideal für Vereine oder Schülerzeitungen: Giga- 
Publish ist ein professionelles Desktop-Publishing-Programm der Spit¬ 
zenklasse. Gestalten Se Ihre Texte und Grafiken zu einem perfekten 
layout. Acht Seiten mit zehn verschiedenen Zeichensätzen können 


Se gleichzeitig bearbeiten. Mastertext: Dieses Textverarbeitungs¬ 
programm der Spitzenklasse bietet durch seine einfache Menüsteue¬ 
rung einen hohen Bedienungskomfort. Es ist die ideale Ergänzung für 
Giga-Publish. Master-Address: Adreßverwaltung, Serienbriefe, 
Adreßaufkleber und Etiketten sind die Domäne von Master-Address. 
Es ist optimal auf Mastertext abgestimmt und bildet mit diesem ein 
leistungsfähiges Software-Paket. Master-Spell: Nie wieder Tipp- 
und Flüchtigkeitsfehler: Eine automatische Rechtschreibprüfung ist für 
alle unentbehrlich, die mit Mastertext arbeiten. Hi-Eddi: Dieses kom¬ 
fortable und leistungsfähige Zeichen- und Konstruktionsprogramm 
macht es einfach, Grafiken mit Joystick oder Maus zu erstellen. Mit 
Mastertexf und Hi-Eddi .verfügen Sie über das ideale Gespann, 
Giga-PuWsh.als DTP-Programm optimal zu nutzen. Weiterhin befin¬ 
den sitsr auh«(ar Diskette alle Programme, die im Inhaltsverzeichnis 
des 64'er-Sonderhefts 39 mit einem Diskeftensymbol gekennzeich¬ 
net sibd- 
Eine Diskette, 

Bestell-Nr. 15939 DM 19,90* sFr 17,-*/öS 199,-* 

64'er^Sonderheft 38: 

Komplettes Einsteiger-Paket 

Diskette 1, Grafik total: 

Eine Auswahl faszinierender Bilder, die zeigen, welche grafischen 
Fähigkeiten im C64 stecken. Paint Magic: Ein tolles Grafikpro- 
giamm, mit dem Sie in kürzester Zeit wunderschöne farbige Grafiken 
und Bilder auf den Monitor zaubern. Alpha Drummer: Dieses 
Schlagzeug-Programm liefert 24 perfekte Sounds. Wer möchte, 
kann beliebige Rhythmen erzeugen oder eigene Sounds digitalisie¬ 
ren. Sounds zum Genießen: Entlocken Sie dem Sound-Chip Ihres 
C64 Musik, die Sie vom Hocker reißt. Von Klassik bis Pop - für jeden 
ist etwas dabei. 

Bestell-Nr. 15938 DM 19,90* sFr 17,-*/öS 199,-* 

Diskette 2 

Leichter lernen mit dem Computer: 

Jetzt ist der Frust beim öden Pauken vorbei. Vier Programme helfen 
dabei: Der »Vokabeltrainer« bringt mehr Spaß beim Englischlemen. 
Ein Übungsprogramm zum »Bruchrechnen« erleichtert Schülern, 
diese gefürchtete Ftorde zu überwinden. »Lateinische Deklinatio¬ 
nen« greift auch bei dieser Fremdsprache unter die Arme. »CAT« 
bringt den »Kleineren« die Grundrechenarten mit grafischer Unter¬ 
stützung näher. Springvogel: Helfen Se dem Springvogel beim Eier¬ 
sammeln: ein Spiel für geschickte Hände. Mit dem eingebauten Edi¬ 
tor können Sie eigene Spielstufen erstellen und die Schwierigkeit 
Ihren Bedürfnissen anpassen. Pro-Disk: Mit dieser professionellen 
Diskettenverwaltung behalten Sie stets den Überblick über Ihre 
Programmsammlung. 

Bestell-Nr. 16938 DM 19,90* sFr 17,-*/öS 199,-* 


Aktionspreis: Allo Programme dlo im Inhaltsverzeichnis des 64'er-Sondefhoftes 38 
mit einem Diskettensymbol gekennzeichnet sind (inkl. der Programme aus Diskette 
1 und 2) erhallen Sie auf zwei Disketten 
Zwei Disketten 

Bostell-Nr. 17938 DM 29,90* sFr 24,90*/öS 299,-* 
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Universelle Kopierprogramme für den 
C128 sind rar. Der Hexer schließt 
in der vorliegenden Version alle Lücken: 
Selbst die RAM-Erweiterungen 
von Commodore erkennt er jetzt 
automatisch. Die Kopierqual 
wird zum Kopierspaß. 



E in flexibles und leistungsstarkes Kopierprogramm für 
den C128 war der »Hexer« schon immer. Das Kopier¬ 
programm besitzt zahlreiche Fähigkeiten, die das Herz 
eines jeden C 128-Besitzer höher schlagen lassen. Und da¬ 
mit ist wirklich jeder Besitzer gemeint, ob er nun einen 
C128, einen C128 D oder den berüchtigten C128 im »Blech¬ 
gewand« besitzt: All diese Typen werden mit je einer Ver¬ 
sion bedient. Jetzt hat Lutz Vieweg, der Programmierer des 
Hexer, erneut eine tolle Idee umgesetzt. Die neue Version 
erkennt automatisch, ob eine RAM-Erweiterung einge¬ 
steckt ist. Ist dies der Fall, erweitert sich der Kopierspeicher 
fast um die ganze Kapazität des Zusatz-RAMs. Zweiseitige 
Disketten können beim Betrieb einer 1750-Erweiterung in 
einem Durchgang kopiert werden! Gleichermaßen nutzt 

40 


der Hexer beim File-Kopieren den zusätzlichen Speicher¬ 
platz aus. 

Wenn Sie das Programm »HEXER 1.4 INSTALL« (Listing 
1) eingegeben, gespeichert und im C64-Modus geladen 
haben, generiert dieses Programm drei Versionen des Ko¬ 
pierprogramms »Der Hexer« sowie den für Ihren C128 rich¬ 
tigen Boot-Sektor auf einer Diskette. Auch das ist ein neuer 
Komfort der Version 1.4. Folgende drei Versionen stehen Ih¬ 
nen nach Beendigung des kurzen Installationsvorganges 
auf Diskette zur Verfügung: 

- die Version für ältere C128 und 1571 (»Der Hexer 
V1.30D«), 

- die Version für die neueren C128 und die modifizierte 
1571 (»Der Hexer V1.3ND«), 
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Sie können den Bootsektor jedoch auch für andere Gerä¬ 
tekonfigurationen ändern, beispielsweise mit dem Pro¬ 
gramm »Uniboot« aus dem 64'er-Sonderheft 22. 

Nach kurzer Ladezeit erscheint das Hauptmenü. 

Der Bildschirm teilt sich in fünf Fenster auf, die durch dünne 
Linien begrenzt sind. Schematisch sieht das ungefähr so 
aus : 

1. Im Fenster ganz oben ist der Copyright-Hinweis enthal- 
ir *?•" 

2. Im i-enster darunter erfolgen Eingaben des Benutzers. 

3. Links sehen Sie eine Befehlsliste - das Hauptmenü. 

4. Im Arbeitsfenster (rechts) wird alles angezeigt, was für 
die aktuelle Operation wichtig ist, eventuell also auch 
Untermenüs. Nach dem Starten zeigt der Hexer in die- 

Einfnche Installation 


- eine Version für Besitzer des »Dolphin-DOS« für den 
C128. 

Stellen Sie vordem Laden des »Hexer« Ihren Monitor auf 
die 80-Zeichen-Darstellung um und schalten Sie den C128 
auf »ASCII«. Laden Sie das benötigte Programm mit 
»DLOAD "Name"« und starten es mit »RUN«. Oder Sie 
drücken die Resettaste: Der Bootsektor auf der generierten 
Diskette lädt die Version, die an Ihren C128 bei der Installa¬ 
tion angepaßt wurde. 


sem Arbeitsfenster die Größe des zur Verfügung stehen¬ 
den Kopierspeichers an. 

5. Im schmalen Fenster unten zeigt der Hexer an, welche 
Operation als nächstes vom Benutzer erwartet wird. 
Die Aufteilung der Fenster ist im Bild 2 skizziert. Alle Be¬ 
fehle des Hauptmenüs können auf drei Arten angezeigt 
werden: 

- in schwarzer Farbe, wenn der Befehl zur Zeit verfügbar 
ist, 

- in heller Farbe, wenn der Befehl zur Zeit nicht verfügbar 
ist oder 

- revers, wenn der Befehl dem aktuellen Vorschlag des 
Computers entspricht. 

Die Bedingung, die erfüllt sein muß, um den revers ange¬ 
zeigten Befehl auszuführen, finden Sie in Fenster 5 (wenn 
noch kein Befehl gewählt wurde). Wenn Sie diesen Befehl 
anwählen wollen, müssen Sie nur noch die Leertaste 
drücken: Der Computer geht dann davon aus, daß die in 
Fenster 5 angegebene Bedingung bereits erfüllt ist und be¬ 
ginnt sofort mit der Abarbeitung. Wenn Sie jedoch einen 
anderen Befehl auswählen, als den revers angezeigten, so 
erscheint in Fenster 5 die zur korrekten Abarbeitung not¬ 
wendige Bedingung, sofern dies für den Befehl wichtig ist. 
Nicht erforderlich sind Nachfragen beispielsweise bei den 
Befehlen, die nicht unmittelbaraufeine Diskettezugreifen, 
ferner auch aus Zeitgründen beim Befehl »Inhaltsverzeich- 
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nis«. Wenn Sie einen Befehl angewählt haben, und die in 
Fenster 5 angegebene Bedingung erfüllt ist, quittieren Sie 
dies mit einem Druck auf die SPACE-Taste. Der Computer 
beginnt daraufhin mit der Abarbeitung. 

Beispiel: Sie möchten eine ganze Diskette kopieren. Der 
Befehl »Ganze Disk kopieren« wird nicht revers angezeigt. 
Sie drücken <F1 >, worauf in Fenster 5 die Aufforderung 
»Legen Sie bitte die Quell-Diskette ein.« erscheint. Nun 
drücken Sie die SPACE-Taste, und der Computer beginnt 
von der eingelegten Diskette zu lesen. 

Alle Befehle des Hauptmenüs können direkt über Tasten 
angewählt werden. In Fenster 3 finden Sie ständig eine 
Übersicht der Befehle und links im Fenster die Tasten, die 
nötig sind, um die Befehle anzuwählen. 

< Fl > - Ganze Disketten kopieren 

Dieser Befehl dient dazu, eine ganze Diskette zu kopie¬ 
ren. Der Computer erkennt anhand des dritten Bytes in 
Spur 18, Sektor 0, automatisch, ob die Quelldiskette einsei¬ 
tig oder zweiseitig beschrieben ist. Beim »Dolphin Hexer« 
wird außerdem automatisch auf 40-Spur-Format getestet. 
Für eine einseitige volle Diskette sind ohne RAM-Erweite- 
rung zwei komplette Durchgänge erforderlich. Für eine 
zweiseitige werden dementsprechend vier Durchgänge 
nötig. Nach der Ausführung dieses Befehls wird der Aus¬ 
wahlvorschlag auf »Speicher schreiben« gesetzt. Beachten 
Sie, daß das Kopieren mit diesem Befehl immer schneller 
ist als das Kopieren einzelner Files (wenn alle kopiert wer¬ 
den sollen). Bitte sehen Sie zu diesem Befehl auch unter 
»BAM-Auswahl« und »Formatieren« nach. 

<F3> - Einzelne Files kopieren 
Wichtig: Achten Sie beim File-Kopieren darauf, daß die Op¬ 
tion »Formatieren« auf »N« geschaltet ist. Diese Option ist 
für das Kopieren von einzelnen Files nicht durchführbar. 

Mit diesem Befehl können Sie einzelne Files auf eine 
oder mehrere andere Disketten kopieren. Nach Anwahl des 

Die Befehle des Hauptmenüs 


Befehls holt sich der Computer zunächst das Inhaltsver¬ 
zeichnis der eingelegten Diskette. Dann können Sie die zu 
kopierenden Files auswählen. Das geschieht, indem Sie 
das Inhaltsverzeichnis mit den Tasten <CURSOR auf¬ 
wärts > und < CURSOR abwärts> scrollen und mit < RE¬ 
TURN > die Files markieren. Mit <SHIFT CLR/HOME> 
können Sie die Auswahl wiederholen. Die Files werden in 


So aktivieren Sie den »Hexer« 


Der C128 mu8 sich im C64-Modus befinden. Legen Sie die Diskette 
mit dem Programm -Hexer 1,4 inst- (Listing 1) in das Laufwerk und la¬ 
den Sie das Maschinenprogramm mit »LOAD "Hexer 1.4 inst".8,1«. 
Starten Sie das Programm mit «RUN«. Legen Sie nun bitte eine leere 
(Achtung: eventuell vorhandene Daten gehen auf jeden Fall verloren!) 
Diskette, auf welche die drei verschiedenen Versionen kopiert werden 
sollen, in das Laufwerk ein. Nach einem Tastendruck beginnt das In¬ 
stallationsprogramm seine Arbeit. Nachdem die Diskette komplett er¬ 
zeugt wurde, meldet sich der Computer mit »Kopie fertig.«, Drücken 
Sie eine weitere Taste, wird danach ein Reset ausgelöst. Sie befinden 
sich anschließend nach wie vor im C64-Modus. Drücken Sie nun die 
Reset-Taste an Ihrem C128, so wird die Version des Hexers für Ihren 
C128 gebootet. Wenn Sie die so erzeugte Version des Hexers auf ei¬ 
nem anderen Typ des C128 starten wollen, laden Sie die entsprechen¬ 
de Hexer-Version mit »RUN"Name"«. 

Das Programm arbeitet im 80-Zeichen-Modus des C128, der Moni¬ 
tor ist also auf diese Darstellungsart umzuschalten. Bitte ASCII/DIN- 
Taste auf Stellung »ASCII« schalten. 

Hardware-Voraussetzungen: 

Ein C128 und ein 1571-Diskettenlaufwerk oder ein C128 D, dazu ein 
Monitor mit Anschluß an den RGB-Ausgang des Computers. 


der Reihenfolge kopiert, in der sie ausgewählt wurden. 
Auch gelöschte Files können, sofern sie noch nicht durch 
andere überschrieben wurden, kopiert werden (Bild 1). Im 
Inhaltsverzeichnis der Zieldiskette sind sie dann als PRG- 
Files in das Inhaltsverzeichnis eingetragen. Zur Beendi¬ 
gung der Auswahl drücken Sie bitte <SPACE>. Nun lädt 
der Computer so viele Files wie möglich in seinen Speicher 

Gelöschte Files kopieren 


und zeigt dabei an, was er gerade macht. Der Auswahlvor¬ 
schlag wird auf »Speicher schreiben« gesetzt, die Zieldis¬ 
kette muß eingelegt und mit < SPACE > bestätigt werden. 
Es können mehrere Durchgänge erforderlich sein. Der je¬ 
weilige Speicherinhalt läßt sich auch auf mehrere Disketten 
kopieren (siehe auch Punkt <W>). 

<F5> - Diskbefehle 

Dieser Menüpunkt stellt Ihnen wichtige Diskettenbefehle 
zur Verfügung. Diese werden durch das im Floppy-Spei¬ 
cher resistente Programm unterstützt, so daß die Befehle 
schneller und komfortabler als gewöhnlich ausgeführt wer¬ 
den. 

Die Bedeutung der Befehle wird Ihnen aus dem zur Flop¬ 
py mitgelieferten Begleitbuch bekannt sein, achten Sie bit¬ 
te genau auf Fenster 5, wo der Computer anzeigt, welche 
Eingaben er von Ihnen erwartet. 

Beim »Dolphin-Hexer« ist noch »Files umbenennen« vom 
Programm her vorhanden. Alle anderen Disk-Befehle kön¬ 
nen im normalen DOS-Format eingegeben werden, sowohl 
im 1541- als auch im 1571-Modus. (zum Beispiel »s:Name« 
für File löschen). 

<F7> - Inhaltsverzeichnis 

Mit diesem Befehl wird das Directory der gerade einge¬ 
egten Diskette angezeigt. Da die Ausgabe sehr schnell er¬ 
folgt, können Sie diese wie gewohnt mit <NO SCROLL> 
anhalten. Gelöschte Files werden in einer anderen Farbe 
angezeigt. Der Befehl entspricht in etwa dem »Directory«- 
Kommando des Basic 7.0. Beachten Sie, daß Sie diesen Be¬ 
fehl immer anwenden können, ohne daß dieser den Kopier- 
Speicher beeinflußt. Das gilt auch für Diskettenbefehle mit 
der Taste <F5>. 

< R > - Weiter lesen 

Wenn eine ganze Diskette oder eine Reihe von Files 
nicht auf einmal kopiert werden konnte, kann man mit die¬ 
sem Befehl den Lesevorgang fortsetzen. Nach Beendi¬ 
gung des Befehls wird der Auswahlvorschlag auf »Speicher 
schreiben« gesetzt. Der Befehl ist gesperrt, wenn bereits al¬ 
le Files oder die ganze Disk gelesen wurde. 

<W> - Speicher schreiben 

Wenn einzelne Files oder Teile einer Diskette bereits in 
den Speicher gelesen wurden, dient dieses Kommando da¬ 
zu, den Speicher auf die Zieldiskette zu übertragen. Sie 
können den Befehl auch dazu verwenden, von einer Quell¬ 
diskette oder einer Reihe von Files mehrere Kopien anzu¬ 
fertigen. Dazu legen Sie zuerst die erste Zieldisk ein, geben 
dann das Kommando »Speicher schreiben«, legen die 
zweite Zieldiskette ein, geben erneut das Kommando und 
so weiter. Sind alle Kopien fertig, veranlassen Sie den Com¬ 
puter mit »Weiter lesen« dazu, den nächsten Teil von der 
Quelldiskette zu holen, sofern nicht bereits alles kopiert 
wurde. Nach der Ausführung des Befehls »Speicher schrei¬ 
ben« wird der Auswahlvorschlag auf »Weiter lesen« gesetzt, 
sofern nicht bereits alles kopiert wurde. 

<B> - BAM-Auswahl (j/n) 

Dieser Befehl ist nur für das Kopieren von ganzen Disks 
von Bedeutung. Die BAM ist eine Tabelle auf jeder Diskette, 
in der notiert ist, welche Blocks bereits für Files oder In¬ 
haltsverzeichnis verwendet wurden und belegt sind. Es ist 
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Bild 1. Sogar gelöschte Files werden einwandfrei kopiert 


beim Kopieren von normal 
beschriebenen Disketten nur 
erforderlich, diese Blocks zu 
kopieren, was viel Zeit sparen 
kann. Sollten Sie jedoch eine 
Diskette kopieren, bei der die 
BAM fehlerhaft ist oder mit 
Direkt-Zugriff auf Blocks ge¬ 
arbeitet wird, ist es meist not¬ 
wendig, die gesamte Diskette 
zu kopieren, ohne Rücksicht 
auf belegte oder unbelegte 
Blocks. 

<F> - Formatieren (j/n) 

Auch dieser Befehl ist nur 
für das Kopieren von ganzen 
Disketten von Bedeutung. 

Wenn Sie mit diesem Befehl 
»Formatieren-ja« setzen, wird 
beim Schreiben von ganzen 
Disketten jede Spur forma¬ 
tiert, bevor sie beschrieben 
wird. Das ist dann sinnvoll, 
wenn ihre Zieldiskette noch 
nicht formatiert ist oder 
schadhafte Blöcke enthält. 

<D> - Blockdistanz (6 oder 10) 

Mit diesem Befehl können Sie festlegen, welchen Ab¬ 
stand die Sektoren beim Schreiben von Files auf der Dis¬ 
kette haben sollen. Bei Disketten im 1541-Format sind das 
gewöhnlich zehn, bei Disketten im 1571-Format sechs 
Blöcke. 

Beachten Sie bitte, daß das Lesen und Schreiben von Fi¬ 
les mit diesem Programm bei sechs Blöcken Distanz we¬ 
sentlich schneller geht. 

<J> - Nachjustieren (j/n) 

Wenn Sie in diesem Menüpunkt »j« anwählen, wird ver¬ 
sucht, einen zunächst fehlerhaft gelesenen Sektor um eine 
Halbspur nach oben oder unten versetzt doch noch fehler¬ 
frei lesen zu können. Beachten Sie, daß das dreimal soviel 
Zeit in Anspruch nimmt, als wenn Sie »n« wählen. 

< — > - Operation stoppen 

Fast alle Operationen können durch einen Druck auf die 

< - > - Taste sofort gestoppt werden. Allerdings sind da¬ 
nach alle im Speicher befindlichen Daten gelöscht und das 
Hauptmenü zurückgesetzt. Das kann beispielsweise sehr 
nützlich sein, wenn Sie gerade eine Diskette ohne BAM- 
Auswahl kopiert haben, dann allerdings mit BAM-Auswahl 
kopieren wollen. Da der Befehl »BAM-Auswahl« ja noch ge¬ 
sperrt ist, können Sie ihn durch einen Druck auf < - > wie¬ 
der freigeben. 


Der Hexer U81.84nd - Ein Prograw» von Lutz Uieweg (01988 


Ich hole das Inhaltsverzeichnis. 


==> 


2 vizawite 

PR6 

2 startexter 
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Bild 2. 

Schematische 
Darstellung 
der Einteilung 
In die fünf 
Ein- und Aus¬ 
gabefenster 
des Hexers 


<SHIFT X> — Programm verlassen (Reset) 

Mit <SHIFTX> kann das Programm verlassen werden, 
ein Floppy- und ein Computer-Reset werden nach zusätzli¬ 
cher Betätigung der SPACE-Taste ausgelöst. 

Die beiden folgenden Optionen gelten nur bei der Dolphin- 
Version: 

<L> - Fehler ignorieren (j/n) 


Wenn diese Option eingeschaltet ist, versucht der »He¬ 
xer« ein File weiterzulesen, wenn ein Prüfsummenfehler 
auftrat. 

<V > - Verifizieren (j/n) 

Ist diese Option aktiviert, wird jeder Track nach dem 
Schreiben noch einmal verifiziert. (Im allgemeinen nicht 

Kopieren mit Komfort 


notwendig, aber sicherer.) Diese Option ist allerdings nur 
für Besitzer des Dolphin-DOS zu nutzen. 

Besonderheiten: 

Mit einem Druck auf <RESTORE> versetzen Sie das 
Programm in seinen Anfangszustand, auch das Floppy- 
Programm wird neu installiert. Sollten Sie also aus irgend¬ 
einem Grund die Floppy einmal aus- und wieder einge¬ 
schaltet haben, drücken Sie einfach <RESTORE>. 
Fehlerbehandlung: 

Treten beim Lesen oder Schreiben Fehler auf, werden 
diese umgehend angezeigt. Fehler können nicht kopiert 
werden. Prüfsummenfehler entstehen nicht, da diese beim 
Schreiben neu berechnet werden. Relevant sind also : 

- »SYNC-Marke nicht gefunden (Spur/Sektor)« und 

- »Block-Header nicht gefunden (Spur/Sektor)«. 

Diese Fehler können nicht behoben werden, führen aber 
nur beim File-Kopieren zur Unterbrechung. 

Beim Lesen der Files kann ferner auftreten: 

- »Nicht vorhandener Sektor (Spur/Sektor)«, wenn ein File 
auf einen nicht-existenten Block verzweigen will. 

Tritt beim Lesen von Files ein Fehler auf, so erscheint im 
Fenster 4 ein Untermenü, in dem Anweisungen für das wei¬ 
tere Vorgehen erfragt werden. 

Beim Schreiben von Files können ferner die Fehler 

- »Diskette ist voll« oder 

- »Directory ist voll« 

auftreten. Lassen Sie bei einem Fehler beim Schreiben un¬ 
bedingt erst einmal die Diskette in der Floppy, und wählen 
Sie in dem erschienenen Untermenü die nächste Aktion. 
Nehmen Sie die Diskette immer erst heraus, wenn Sie wie¬ 
der im Hauptmenü sind. Andernfalls kann die Spur 18 nicht 
zurückgeschrieben werden, und alle Mühe war umsonst. 

Wir wünschen Ihnen viel Spaß und Erfolg mit diesem her¬ 
vorragenden Programm. (Lutz Vieweg/ef) 
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Machen Sie mit! 


SONDERHEFT 



Diesen Beitrag im 64'er-Sonderheft fand ich 
besonders gut: 

Ausgabe:_/_ Seite:_ 

Artikel:_ 


Ich wünsche mir für eine der folgenden Ausgaben 
folgende Themen: 


Ich möchte an der redaktionellen Gestaltung 
mitarbeiten. 

Meine Vorschläge; 


Ich kann folgende(s) Programm(e) zur Veröffent¬ 
lichung anbieten: 


Dieses Problem habe ich: 



I 

I 


I 

I 

I 


44«|-onüHt.U* 

04 oi-onlln*,iijt 

































Ich besitze einen: älteren C64_ neuen C64II_ 

CI 28_ C128D (im Blechgehäuse)_ 

mit Laufwerk(en): 1541 (alt)_ 1541c_ 1541II_ 

1570_ 1571 _ 1581 _ 

Ich verwende einen Drucker_ 

mit 9 Nadeln_ 24 Nadeln_ 

Zusätzlich besitze ich einen 

Amiga_ PC_ Atari ST_ andere_ 

iiiiiiiiiiiiiiiiimimiiiiiimiiiiiiiiiimiiiiiiiiiiiimiiiiiiiiiiiiiimiiiuimiiiiiiiii|iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii l i m iuiiiiii mil ii„ l ,iiaii 

Diese Note (1 bis 6, 1 am besten) gebe ich dem 
64'er-Sonderheft:_ 

Das sollte im 64'er-Sonderheft besser werden: 


S4SR anunrt»« 


... 1111111 ii .. in iiiiiiimiiiiiimimimiiiiiiiiii .mini.....mm 


Name:_ 

Alter:_Jahre 

Adresse:_ 


Telefon: 


lllllllllllllllllllllllllllll■lllUllllllllm■lllllllllllllllllllllllllllllllllllllmmlllllMlllllllllllllllllllllllllltllnllllll||||||||||■lll||||||||||||||||||| 


Bitte schicken Sie die Mitmachkarte 
in einem Briefumschlag 
an folgende Adresse: 

Markt & Technik Verlag AG 
Redaktion Sonderhefte 
Stichwort: Mitmachkarte 64'er 
Hans-Pinsel-Straße 2 
8013 Haar b. München 



Schreiben Sie uns! 




























LISTINGS 


Oh Mutter! 

Keine Sorge, die Überschrift dieses Artikels ist nicht 
der Stoßseufzer eines geplagten Sohnes, 
der sich über seine werte Frau Mutter beschwert. Nein, 
es geht vielmehr um sechseckige Muttern, 
die einen ganz schön zum Schwitzen bringen können. 
Ein kniffeliges Denkspiel für den C128. 


E s ist bereits zwei Uhr morgens. In einer dunklen Ecke 
sitzt Ralf noch immer vor seinem C128. Mit weit aufge¬ 
rissenen Augen starrt er auf den Monitor. Seine Haare 
sind zerrauft und in seinem Gesicht steht blankes Entset¬ 
zen geschrieben. 

Keine Angst, Ralf ist nicht krank. Er spielt vielmehr »Oh 
Mutter«, ein fesselndes Denk-Spiel, das den Anwender auf 
eine harte Geduldsprobe stellt. Dabei scheint es so ein¬ 
fach, die gestellte Aufgabe zu lösen: Es sollen sieben Zah¬ 
lenreihen einer Anordnung von sieben Muttern (Schrau- 
ben-Muttern) so zugeordnet werden, daß die Zahlen aller 
anliegenden Mutterseiten übereinstimmen. 


Vertrackte Muttern 


Doch bereits nach wenigen Spielrunden bemerkt man die 
Verzwicktheit der Situation. Hat man sechs Zahlenreihen 
erfolgreich auf die Muttern verteilt, so paßt die siebte Zah¬ 
lenreihe nicht mehr an die letzte Position. Wieder sind Zah¬ 


lenreihen zu vertauschen, Muttern zu drehen, vorangegan¬ 
gene Situationen im Gedächtnis zu behalten, bis man 
schließlich ein weiteres Mal erkennen muß, daß die neue 
Kombination wieder nicht zusammenpaßt. Die Verzweif¬ 
lung ist vorprogrammiert. Aber Geduld und vor allem räum¬ 
liches Denkvermögen führen letztlich doch zum Ziel. 

Wenn Sie es auch einmal versuchen wollen, dann tippen 
Sie das Programm in Listing 1 mit dem Checksummer 128 
(Seite 158) im C128-Modus (ASCII-Einstellung) ab und 
speichern es auf Diskette. 

Schalten Sie den C128 in den 40-Zeichen-Modus bei ak¬ 
tivier DIN-Tastatur und laden das Spiel mit 

RUN "OH MUTTER" 

Zu Beginn ist eine kleine Titelmusik zu hören, die mit ei¬ 
nem Tastendruck abgebrochen werden kann. Schließlich 
gelangt man in das Hauptmenü von »Oh Mutter«. Dort las¬ 
sen sich folgende Menüpunkte anwählen: 

S - Spiel beginnen 

Wenn Sie für eine »Mutternschlacht« bereit sind, dann 
drücken Sie bitte diese Taste. 

H - Hilfe 




ZUORDNEN 
WEGNEHMEN 
DREHEN —> 
DREHEN <— 
SPIEL-ENDE 


RICHTIG 


KOMMANDO WAHLEN —> RETURN 


Hier kann eine Kurzanleitung mit al¬ 
len wichtigen Informationen zum Spiel 
abgerufen werden. Die Ausgabe erfolgt 
auf Wunsch auf dem Bildschirm oder 
auf einem angeschlossenen Drucker. 

A - Abspeichern Ergebnisse 

»Oh Mutter« verwaltet eine High- 
Score-Liste, die mit diesem Menüpunkt 
auf Diskette abgelegt werden kann. Vor 
Beendigung des Programms sollte im¬ 
mer diese Funktion aufgerufen werden, 
so daß die Besten-Liste auf der Diskette 
stets aktualisiert wird. 

Drückt man die Taste <S> für »Spiel 
beginnen«, erscheint nach kurzer Zeit 
die Spielfläche. Auf der linken Bild¬ 
schirmhälfte erkennt man die sieben 
verhängnisvollen Muttern. Sie sind mit 
den Buchstaben »A« bis »G« gekenn¬ 
zeichnet. 


Bild 1. Muttern werden gesetzt, 
gedreht und wieder entfernt, um 
gleiche Zahlen an den angrenzenden 
Flächen zu erhalten. 
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LISTINGS 


Kurzinfo: Oh Mutter 


Programmart: Spiel 
Laden: RUN "OH MUTTER". 

Das Spiel startet nach dem Laden automatisch. 
Besonderheiten: Die DIN-Tastatur muß aktiviert sein. 
Das Spiel läuft im 40-Zeichen-Modus. 
Programmautor: Manfred Krieb 


Rechts davon findet man die Zahlenreihen, die den Mut¬ 
tern korrekt zugeordnet werden sollen. 

Die Zuordnungen erfolgen durch ein kleines Menü, das 
sich unterhalb der Zahlenreihen befindet. Mit Hilfe eines 
kleinen Pfeils, der mit den Tasten <CURSOR-abwärts> 
und <CURSOR-aufwärts> auf und ab bewegt werden 
kann, lassen sich die einzelnen Funktionen anwählen. 

Während des Spiels läuft unaufhaltsam eine Uhr mit, um 
die verstrichene Zeit bis zur Lösung des Problems zu mes¬ 
sen. Denn das Rätsel um die geheimnisvollen Muttem soll 
so schnell wie möglich geknackt werden. 

Beginnen wir deshalb gleich mit dem Spiel und ordnen 
der ersten Mutter eine Zahlenreihe zu. Bewegen Sie dazu 
den kleinen Pfeil mit den Cursortasten auf »ZUORDNEN« 
und drücken Sie < RETURN >. Neben den Zahlenreihen 
erscheint nun ein weiterer Pfeil in schwarzer Farbe, der 
ebenfalls mit den Cursortasten nach oben und unten be¬ 
wegtwerden kann. Auf diese Weise läßt sich die gewünsch¬ 
te Zahlenreihe wählen. 

Positionieren Sie also den schwarzen Pfeil auf eine der 
Reihen und betätigen Sie die RETURN-Taste. Jetzt ist die 
Mutter zu bestimmen, die der Zahlenreihe zugeordnet wer¬ 
den soll. Die Auswahl erfolgt hier ebenfalls mit den Cursor¬ 


tasten oder über die Kennbuchstaben der einzelnen Mut¬ 
tern. Mutter »D« kann beispielsweise direkt durch Drücken 
der Taste <D> angesprochen werden. Hat man die richti¬ 
ge Mutter ausgesucht, wird die Zahlenreihe mit einem 
Druck auf < RETURN > der entsprechenden Mutter zuge¬ 
ordnet. Nun kann eine weitere Zahlenreihe gewählt und auf 
einer Mutter plaziert werden. Dabei ist zu beachten, daß die 
angrenzenden Kanten der Muttern gleiche Zahlen aufwei¬ 
sen müssen, wie es beispielsweise Bild 1 zeigt. Hierfür kön¬ 
nen die Muttern im oder gegen den Uhrzeigersinn gedreht 
werden, so daß die Ziffern auf den Muttern in jede ge¬ 
wünschte Position »rutschen«. Aktivieren Sie dazu die Me¬ 
nüpunkte »DREHEN — « oder »DREHEN — « und wählen 
Sie anschließend die gewünschte Mutter. 

Irrtümlich gesetzte Zahlenreihen können selbstverständ¬ 
lich wieder zurückgenommen werden, indem Sie den Me¬ 
nüpunkt »WEGNEHMEN« anwählen. 

Auf in den Kampf 


Als Ansporn prüft »Oh Mutter« stets die Anzahl der passen¬ 
den Kanten und zeigt sie im unteren Bildschirmbereich an. 
Doch erst bei 12 richtig angeordneten Kanten ist das Spiel 
gelöst. Mit <CTRL C> kann man übrige gerade gewählte 
Menüpunkte wieder verlassen, allerdings wird nach einem 
vollendeten Spielzug damit auch das Spielende vorge¬ 
schlagen. 

Wer das Mutterproblem vollständig löst, darf sich in der 
Rang-Liste der zehn schnellsten Knobler verewigen, und 
damit beweisen, daß bei ihm »keine Schraube locker ist«. 

(Manfred Krieb/Michael Thomas/ef) 


« 
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1® REM OH MUTTER 07. ‘38. 1987. 

<A99> 

480 

: RESTORE 5130 

< I JH> 

20 REM <W> BY MANFRED KRIEB. 

< AHA > 

490 

: FOR 1=1 TO 6: 

<N4V> 

30 REM HASEMANSBERG S. 

<APB> 

5O0 

: READ A,B: X=K(MI,0)+A: Y=K(MI,1)+B 

<DN9> 

40 REM 3557 EBSDORFERGRUND 1. 

<B1C> 

510 

: ON M(MI,I) GOSUB 210,250,290,340,390,430 

<G42> 

60 TRAP 4620: FAST : GOSUB 5260: GOTO 1350 

<3LN> 

520 

: NEXT 

<606 > 

70 REM ABSPEICHERUNG 

<BPF> 

530 

RETURN 

<KE7> 

00 : FAST : AS="OH MUTTER": Pf="PGMtf* “ 

<2T3> 

540 

: 

<4CH> 

90 : PRINT "DSAVE "*PI;: DSAVE(PS): PRINT DSS 

<8RU> 

550 

REM ZAHLENREIHE ZUWEISEN 

<HQ7> 

100 : SCRATCH<A*>: PRINT A*+" "+DS$ 

<RQH> 

560 

: FOR 1=1 TO 6: M(MI,I)=Z(ZI,I): NEXT 

<UEV> 

HO : RENAME<P*) TG<A*> 

<POU> 

570 

RETURN 

<K67> 

120 : PRINT "RENAME "+P*+"TO "+AS+" ”»DSS: SLOW : 


580 

: 

<2C9> 

END 

<T5B> 

590 

REM WELCHE MUTTER 

<IQB> 

130 : 

<3SF> 

600 

: COLOR l,14l CHAR 1,0,24,"MUTTER WAHLEN —> 


140 REM ZEIT ANZEIGEN 

<JIE> 


RETURN C9SPACE>” 

<4FA> 

1S0 : Y*=TIS: CHAR 1,32,0.LEFT*<Y*,2) 

<BGA> 

610 

: X=K (MI, 0) : Y=K(MI,1> 

<K47> 

160 : CHAR 1,35,0,M1D*<YS,3,2> 

<KEE> 

620 

: PLAY “G": MOVSPR 3, X-* 15,Y+40: SPRITE 3,1 

<U52> 

170 z CHAR l,38,0 t RIGHT*(Y*,2> 

<NAP> 

630 

: GET AS: IF AS="" THEN GOSUB ISO: GOTO 630 

<QRS> 

180 RETURN 

<487> 

640 

: 1F A*=RU* THEN 720 

< ISL> 

190 : 

<6SR> 

650 

: IF AS=HO* THEN 700 

<NSM> 

200 REM 1 ZEICHNEN 

<J2C> 

660 

: IF A*=L* OR AS=R* THEN 740 

<9KA> 

210 : DRAW Q,X*4,Y TO X«4,Y-8 TO X+l.Y-5 

<BHF> 

670 

: IF A»=C* THEN 740 

<HVJ> 

220 RETURN 

<4G7> 

680 

: IF A*<"H" AND A*>="A" THEN MI=ASC(A»>-64: G 


230 : 

<es3> 


UTO 60O 

<T6I> 

240 REM 2 ZEICHNEN 

< I28> 

690 

: GOSUB 1160: GOTO 600 

<4VR> 

250 : DRAW Q,X,Y-7 TO X+l.Y-8 TO X*4,Y-B TO X*6,Y 


700 

: IF MI<2 THEN MI=7: ELSE : MI=MI-1 

<2MR> 

-6 TQ X+6.Y-4 TO X,Y TO X+6,Y 

<M00> 

/1 0 

S GOTO 600 

<3I8.> 

260 RETURN 

<407> 

720 

z IF MI>6 THEN MI-1: ELSE z MI-MIM 

< J6T> 

270 s 

<2SB> 

736 

: GUTO 600 

<3287 

280 REM 3 ZEICHNEN 

<H24> 

740 

RE TURN 

<4Q7> 

290 s DRAW 0,X, Y-7 TO X+l,Y-8 TO X+4,V-8 TO X+6,Y 


750 

: 

<6SR> 

-6 TO X+6.Y-3 TO X+3,Y-4 TO X»-6,Y-3 

<.C7H> 

760 

REM A ZEICHNEN 

<G20^ 

300 : DRAW Q,X+6,Y-3 TO X+6.Y-2 TO X»4,Y TO X*1 ,Y 


770 

: DRAW 1,X,Y TO X*4,Y-B TO X+8.Y 

<L1D> 

TO X,Y-1 

<K1J> 

780 

: DRAW l,X*2,Y-3 10 X*-7,Y-3 

< I3J > 

310 RETURN 

<KI7> 

790 

RETURN 

<KI7> 

320 : 

<1C5> 

800 

■ 

< BDD > 

330 REM 4 ZEICHNEN 

< JAD> 

810 

REM B ZEICHNEN 

<MAP> 

340 : DRAW 0,X*3,Y-S TO X,Y-3 TO X+6.Y-3 

<R36> 

820 

: DRAW 1,X,V TO X+l,Y TO X+l,Y-8 TO X f Y-8 TO 


350 : DRAW 0,X+3,Y TO X+S.Y-5 

<OQM> 


A-M.V-8 ru XF6.Y-6 TO XF6.Y-5 TO X+3.Y-4 

<03L> 

360 RETURN 

<4S7> 

330 

: DRAW I.X+3.Y-4 TO XF6.Y-3 TO X*6,Y-2 TO X*4 


370 : 

<3SF> 


,v 70 X,V 

<TQM> 

380 REM 5 ZEICHNEN 

<HI6> 

840 

RETURN 

<5K7> 

390 : DRAW U,X,Y TO X+4.Y TO X+6.Y-2 TO X+6.Y-3 T 


850 

J 

<9T7> 

0 X+4,Y—5 TU X,Y-5 TO X,Y-B TO X+6,Y-8 

<M2E> 

36® 

REM C 2EXCHNEN 

<NIU> 

40O RETURN 

<4C7> 

fct '0 

: ORAW 1,X+6,Y 10 X+5,Y TO X*2,Y-1 TO X,Y-4 T 


410 : 

<7SV> 


0 X+2.Y-7 TO X*-S,V-B TO X+6.Y-8 

<CSE> 

420 REM 6 ZEICHNEN 

<GI2> 

yyo 

RE TURN 

<5C7> 

430 : DRAW Q,X+6,Y-7 TO X+5,Y-8 TO X+2.Y-8 Tü X,Y 


B90 


<FTV> 

-6 TO X,Y—2 TO X+2,Y TO X+4,Y TO X+6,Y-1 

<9SN> 

-09 

RLM D ZEICHNEN 

<MIQ> 

440 : DRAW Q,X+6,Y-1 TO X+6.Y-3 TO X+4,Y-4 TO X+2 
, Y—4 TO X, Y—2 

<0K2> 

910 

: DRAW 1 ,X,Y TO X+4,Y TO X+5.Y-1 TO X*6,Y-2 T 

U X*6,Y-6 TO X+S.Y-7 TO X*4,Y-8 TO X,Y-B 

< W9> 

450 RETURN 

<K67> 

920 

: DRAW 1,X+l,Y TO X-H,Y-8 

<BU8> 

460 : 

<4CH> 

9I0 

RLIURN 

<LU7> 

470 REM ZAHLENREIHE ANZEIGEN 

<H07> 

94C 

z 

<8D1 > 


54 
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LISTINGS 


950 REM E ZEICHNEN <NOV> 

96Ö : DRAW 1,X+6,Y TO X,Y TO X,Y-8 TO X+6.Y-8 <RNE> 

9V@ i DRAW l,X,Y-4 TO X+5.Y-4 <NUF> 

93« RETURN <SB7> 

99« : <ETR> 

1«0« REM F ZEICHNEN <340 

1010 ! DRAW 1,X,Y TO X,Y-B TO X+6.Y-8 <CP8> 

102« I DRAW t,X,Y-4 TO X+5.Y-4 <9DF> 

1030 RETURN <0I7> 

1040 i <30D> 

1050 REM B ZEICHNEN <2C9> 

1060 : DRAW 1.X+5.Y-8 TO X+2.Y-8 TO X,Y-6 TO X,Y- 

2 TO X+2,Y TO X+4,Y TO X+6.Y-2 <EJL> 

1070 i DRAW l,X+6,Y-2 TO X+6.Y-4 TO X+3.Y-4 <B3D> 

10B0 RETURN <B47> 

1090 ! <5GN> 

1100 REM FEHLERHINWEIS <3KE> 

1110: F*=F*+LEFT*(B3*,36-LEN(F*>) <IN9> 

1120 : COLOR 1,11: CHAR 1,0,24,F*: PLAY "ADF" <7LK> 

113« : CHAR 1,0,24,83*1 COLOR 1,1: RETURN <2BN> 

1140 : <209> 

1130 REM HINWEIS FALSCHE TASTE <2SB> 

1160 : F*="FALSCHE TASTE BENUTZT": GOSUB 111«: RE 

TURN <AEB> 

1170 : <3GF> 

11B0 REM HINWEIS ZAHLENREIHE <1K6> 

1190 : F*="ZAHLENREIHE BEREITS ZUGEORDNET": GOSUB 

1110: GOTO 1330 <9C3> 

1200 : <30D> 

1210 REM HINWEIS MUTTER HAT ZAHLEN <2C9> 

1220 : F*="MUTTER HAT BEREITS ZAHLEN": GOSUB 1110 

: GOTO 1330 <DV7> 

1230 : <2GB> 

1240 REM HINWEIS KEINE MUTTER WEG <340 

1250 : F*="ICH KANN KEINE MUTTER WEGNEHMEN": GOSU 

B 1110: GOTO 1330 <AH3> 

1260 : <001> 

1270 REM HINWEIS MUTTER HAT KEINE ZAHLEN <3SF> 

1280 : F*="MUTTER HAT KEINE ZAHLEN": GOSUB 1110: 

GOTO 1530 <DI4> 

1290 : <7GV> 

1300 REM HINWEIS MUTTER NICHT DREHBAR <2KA> 

1310 : F*="MUTTER-DREHEN IST UNMEBLICH!4SPACE>": 

GOSUB 1110: GOTO 1530 <LPJ> 

1320 : <30D> 

1330 REM HAUPTMENUE <2C9> 

1340 REM - <3KE> 

1350 : TRAP 4620: FAST : GRAPHIC 0,1: RESTORE 509 

0 <VT4> 

1360 : COLOR 0,7: COLOR 1,8 <ETL> 

1370 : CHAR 1,7,1," a<SHF.SPACE>ü<3SHF.SPACE>fl<SH 
F. SPACE5MISHF. SPACE JKSHF. SPACE5KSHF. SPACE» 

£CSHF.SPACEJS “,1 <A8N> 

1380 : CHAR 1,7,3, “B BISHF. SPACE1IKSHF. SPACE!-£<SH 
F. SPACE »KSHF. SPACE ISHF . SPACE »£<SHF. SPACE > 

HfSHF.SPACE>ä<SHF.SPACE>£“,1 <VKI> 

1390 : FOR 1=7 TO 13 STEP 2: READ AS,B*: CHAR 1,9 

,I,"= CHAR 1,7,I,A*,1: NEXT <9E2> 

1400 : CHAR 1,7,17,BW*,1 <BAO> 

1410 : SLOW <K20> 

1420 : PLAY "T0V11A": GET KEY AI <3M1> 

1430 : IF A!="Q" OR A*="S" THEN 4700 <FBB> 

1440 : IF AI="S" OR AI=" 5." THEN GOSUB 5900: GOTO 

1500 <KJQ> 

1450 : IF A*=“H" OR At=“M" THEN 3090 <AJ9> 

1460 : IF AI="A” OR A*="fl" THEN 3000 <989> 

1470 : GOTO 1420 <6SV> 

1480 : <105> 

1490 REM SPIELEN <3CD> 

ise0 : zu=0: RI=0: KI=1: ZI=1: MI=1: SPRITE 1,1 <ATH> 

1510 : Tlt="000000": SLOW <MIO> 

1520 : DO UNTIL RI>11 OR KI>4 <T1N> 

1530 : R1=0: RESTORE 5140 <C3Q> 

1540 : FOR 1=1 TO 12 <0CQ> 

1550 : READ A,B,C,D <G20> 

1560 : IF M(A,B)=0 THEN 1590 <SL3> 

1570 : IF M(C,D>=0 THEN 1590 CGLB> 

1580 : IF M(A,B)=M(C,D) THEN RI=RI+1 <896> 

1590 : NEXT <OFG> 

1600 : COLOR 1,2: CHAR 1,0,24,"KOMMANDO WFHLENI2S 

PACE»—> RETURN<5SPACE>" <IF7> 

1610 : CHAR 1,23,22,RIGHT*(STR*(RI),2) <LHO> 

1620 l IF RI>11 THEN 2350 <6L1> 

1630 : SPRITE 2,0: SPRITE 3,0 <VHC> 

1640 : PLAY "F": MOVSPR 1,206,KI«S+131 <ISC> 

1650 : GET A*: IF A*="" THEN GOSUB 150: GOTO 1630 <MV2> 

1660 : IF A*=RU* THEN 1730 <4PF> 

1670 : IF A*=HO* THEN 1710 <F9F> 

1680 : IF A*=L* OR A*=R* THEN 1760 <A0K> 

1690 : IF A*=C* THEN KI=5: GOTO 1760 <BAC> 

1700 : GOSUB 1160: GOTO 1600 <K87> 

1710 : IF KK2 THEN KI=5: ELSE : KI=KI-1 <BGC> 

1720 : GOTO 1640 <7ST> 

1730 : IF KI>4 THEN KI=1: ELSE : KI=KI+1 <01A> 

1740 t' GOTO 1640 <4ST> 

1750 : REM KOMMANDO AUSGELOEST <4GJ> 

1760 : ON KI GOTO 1860,2010,2140,2260,1790 <K3K> 

1770 : <5GN> 

1780 : REM ENDEFRAGE <209> 

1790 : CHAR 1,0,24,“WIRKLICH ENDE? J/NC16SPACE5“ <01M> 

1800 : PLAY "CCC": GET KEY A* <0VL> 

1810 : IF A*="£" OR A*=”J" THEN 2350 <735> 

IS20 : IF A*="H" OR A*="N" THEN 1600 <6B2> 

1030 : GOTO 1800 <EC5> 

1840 : <B1D> 

1850 : REM ZUORDNEN <BHF> 

1860 : IF ZU<7 THEN 1880 <PJP> 


1870 

: 

F*="DIE ZAHLEN SIND ALLE ZUGEORDNET": 

GOSU 



B 

1110: GOTO 1530 


<VBM> 

1880 


GOSUB 4750 


<9NH> 

1890 


IF A*=C* THEN 1530 


<MIH> 

1900 


IF Z(ZI,0)>O THEN 1190 


<HAI> 

1910 


REM WELCHE MUTTER 


<8H3> 

1920 


GOSUB 600 


< JNL> 

1930 


IF A*=C* THEN 1B80 


<G98> 

1940 


IF M(MI,0)>0 THEN 1220 


<08M> 

1930 


Z(ZI,0)=MI: M(MI,0)=ZI: ZU=ZU+l 


<L16> 

I960 


0=1: GOSUB 560: GOSUB 480 


<3El > 

1970 


CHAR 1,28,Z1+1,"<11SPACE3" 


<2E1 > 

1980 


GOTO 2350 


<D4Q> 

1990 




<CHJ > 

2O0O 


REM WEGNEHMEN 


<70T> 

2010 


IF ZU=« THEN 1250 


<S3D> 

2020 


REM WELCHE MUTTER 


<60P> 

2030 


GOSUB 600 


<S7L> 

2040 


IF A*=C* THEN 1530 


< I90> 

2030 


IF M(MI,0)“0 THEN 1280 


<6FC> 

2060 


ZU-ZU-1: ZI=M(MI,0! 


<4B4> 

2070 


0=0: GOSUB 480: COLOR 1,2 


<BRS> 

2O80 


FOR J=1 TO 6: CHAR 1,23»J»2,ZI+1,STR*(Z(Z 




,J > >: NEXT 


<G5M> 

2090 


FOR J=0 TO 6: M(MI,J>=0: NEXT 


<Q88> 

2100 


Z(ZI,0>=O 


'7G5> 

2110 


GOTO 2350 


<7KQ> 

2120 




< 7 OT > 

2130 


REM —> DREHEN 


<7GV> 

2140 


IF ZU=0 THEN 1310 


<TF8> 

2130 


REM WELCHE MUTTER 


<4GJ > 

2160 


GOSUB 600 


<VNL> 

2170 


IF A*=C* THEN 1530 


<I11> 

2180 


IF M(MI,0)=O THEN 1310 


<OGN> 

2190 


0=0: GOSUB 480: COLOR 1,8 


<ABP> 

2200 


C=M(MI,6) 


<M2K> 

2210 


FOR J=5 TO 1 STEP -1: M(MI,J+l)=M(MI 

,J>* 



NEXT 


<OIE> 

2220 


M(MI,1)=C: 0=1: GOSUB 480 


<VPJ> 

2230 


GOTO 2350 


<5KQ> 

2240 




<70T> 

2250 


REM <— DREHEN 


<7GV> 

2260 


IF ZU=0 THEN 1310 


<TVA> 

2270 


REM WELCHE MUTTER 


<6GR> 

2280 


GOSUB 600 


<RNL> 

2290 


IF A*=C* THEN 1530 


<G19> 

2300 


IF M(MI,0>=0 THEN 1310 


<8MN> 

2310 


0=0: GOSUB 48@: COLOR 1,8 


<AJP> 

2320 


C=M(MI,1) 


<NQJ> 

2330 


FOR J=1 TO S: M(MI,J>=M(MI,J+l>: NEXT 

<TEU> 

2340 


M <MI,6)=C: 0=1: GOSUB 480 


<VLG> 

2350 


LOOP 


<QBP> 

2360 


SPRITE 3,8: SPRITE 2,0: SPRITE 1,0 


<AEO> 

2S7A . 

GRAPHIC 0,1 


<MQK> 

2380 


IF KI<5 THEN 2450 


<23A> 

2390 


CHAR 1,9,02,"SIE AUFGABE" 


<SKK> 

2400 


CHAR 1,9,04,"WURDE LEIDER" 


<6DK> 

2410 


CHAR 1,9,06,"NICHT GELÖST" 


<0TM> 

2420 


CHAR l,9;i7,TA*,l 


<LTE> 

2430 


SLOW : GOSUB 4540: GOTO 1350 


<UKS> 

2440 




<105> 

2450 

REM TOP-TEN 


<3CD> 

2460 


FAST : B*=TI*: PRINT KL* 


<L2F> 

2470 


FOR 1=1 TO 10: GET Y*: NEXT 


<ENC> 

2480 


COLOR 0,15: COLOR 5,8: GRAPHIC 0,1 


<SIK> 

2490 


CHAR 1,13,1,"I<SHF.SPACE »KSHF. SPACE »KSHF 



-SPACE»- KSHF.SPACE»KSHF.SPACEJH",1 


<R45> 

2500 


CHAR l,0,5,"SR.",l 


<E2L> 

2510 


CHAR 1,10,S, ".SAME" , 1 


<DNR> 

2520 


CHAR 1,31,5,"2 E I T",l 


<BAE> 

2530 


COLOR 5,Fl 


<KVG> 

2540 


FOR 1=1 TO 10 


<G4R> 

2550 


CHAR 1,0,1+6,RIGHT*(STR*(I),2) 


<L70> 

2560 


CHAR 1,10,1+6,ET*(I) 


<41Q> 

2570 


CHAR 1,31,I+6,LEFT*(EZ*(I),2 > +":" 


<SSD> 

2580 


CHAR 1,37,1+6,RIGHT*(EZ*(I),2) 


<H4A> 

2590 


CHAR 1,34,1+6,MID* (£Z*(.I) ,3,2)+": " 


<U5K> 

2600 


NEXT 


<0CG> 

2610 


1 = 1 


< 1GF> 

2620 


DO UNTIL 1)10 OR EZ*(I> >=B*: 1=1 + 1: LOOP 

<S0S> 

2630 


COLOR 5,F2: IF I<11 THEN 2670 


<OCJ> 

2640 


GRAPHIC 0,1 


<4QK> 

2650 


CHAR 1,1,7,"SIE SIND LEIDER NICHT BEI 

DEN 



rjjy- r_EN" 


<RM1> 

2660 


GOSUB 4540: GOTO 1350 


<8I8> 

267 V 


CHAR 1,0,I+6,BL*+RIGHT*(STR*(I),2)+N* 


<KF1 > 

2680 


TRAP 2690: SLOW 


<QVl> 

2690 


CHAR 1,10,21,LF*: CHAR 1,4,20,"SAME" 


<GIU> 

2700 


PLAY "A": INPUT E* 


< NN6 > 

2710 


IF £*="" THEN 1350 


<2H1 > 

2720 


IF I>9 THEN 2810 


<I0I> 

2730 


COLOR 5,Fl 


<GVG> 

2740 


FOR J=9 TO I STEP -1: ET*(J+l>=ET*(J) 

EZ* 



< J+l) =EZ*(J): NEXT 


<SMJ> 

2750 


FOR J=I+1 TO 10 


<QTE> 

2760 


CHAR 1,10,0 +6,ET*(J) 


<K3P> 

2770 


CHAR 1,31,J+6,LEFT*(EZ*(J >,2) + ":" 


<6J5> 

2/80 


CHAR 1,37,J+6,RIGHT*(EZ*(J>,2) 


<KCV> 

2790 


CHAR 1,34,J+6,MID*(EZ*(J),3,2)+":" 


<BJ4> 


Listing 1. Das Listing zu dem kniffligen Denkspiel »OH 
MUTTER« ist mit dem Checksummer 128 (Seite 158) einzu¬ 
geben. 
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LISTINGS 


2800 

s NEXT 

<OGG> 

3670 

: 

GET KEY A*x 

<F05> 

2810 

: E*=LEFT*<E*,20> 

<GKL> 

3680 

: 

IF A*="J" OR A*="J" THEN 3700: 

<GQ5> 

2820 

: E*=E*+LEFT*(LF*,20-LEN!E*)> 

<09ö> 

3690 

: 

IF A*="B" OR A5="N" OR A*=C* THEN 3710: EL 

2830 

: ET*<I)=E*x CÜLQR 5,F2 

<R36> 


SE 3660: 

<FCJ> 

2840 

: EZ*(I)=B* 

<7M4> 

3700 

t 

PRINT44, V*; 

<E9T> 

2850 

: CHAR 1,10,1+6,"£20SPACE>" 

<E79> 

3710 

: 

CLOSE 4: GOTO 3090: 

<SH2> 

2860 

: CHAR 1,10,1+6,ET*(I) 

<CCQ> 

3720 

: 


<30D> 

2870 

: CHAR 1,31,1+6,LEFT*<EZ*U! .. 

<HTP> 

3730 

: 

DATA "£7SPACE>S a£3SPAC£>B£SHF. SPACE>IJ£SHF 

2880 

2890 

: CHAR 1,37,1+6,RIGHT*(EZ*<I>,2> 

: CHAR 1,34,1+6,MID»(EZ*(I),3,21+. 

<GGC> 

<46S> 

3740 

: 

SPACE!I IESHF.SPACE > £ESHF.SPACE 

DATA "£7SPACE>- 

<5HR> 

<2DK> 

2900 

: CHAR 1,2,20,"SETURN-IASTE DRUCKEN,-"+WF* 

<653> 

3750 

: 

DATA "SIES IST EIN ÜENKSPIEL. “, 

<E8E> 

2910 

: GOSUB 4540: IF BtXR* THEN 2910 

<56P> 

3760 

: 

DA1A "£S IST ZUM VERZWEIFELN!" 

<HOF> 

2920 

2930 

: GUTO 1350 
x 

<D4M> 

<FHV> 

3770 

: 

DATA "BAT MAN DOCH 6 BUTTERN RICHTIG, DANN 

<6DC> 

2940 

REM ERGEBNIS-TAB-FEHLER 

<5KM> 

3780 


DATA "PASST DIE LETZTE BUTTER WIEDER NICHT 


2950 

: TRAP 1350: GRAPHIC 0,1 

<T42> 




<H8P> 

2960 

s PRINT ''££ HLER BEIM JLRGEBNIS-SPEICHERN " +R*+ 
DS*x QET KEY A* 

<164> 

3790 

3800 

x 

DATA "DURCH BUSPROBIEREN UND SEHALTEN DER" 
DATA "SITUATIONEN IST DIESES PROBLEM JEDQC 

<AJN> 

2970 

: DCLOSE #1: GOTO 1350 

<3M5> 


y- 

1 

<TVD> 

2980 

X 

<AI9> 

3810 


DATA "ZU LOESEN.","" 

<DMR> 

2990 

3000 

REM ERGEBNIS-TABELLE SPEICHERN 
: TRAP 2950: GRAPHIC 0,1: CHAR 1,13,12,"SITT 

<6SR.' 

3820 

s DATA "US SOLLEN 7 ZAHLENREIHEN DEN RICHTIG 

EN" 

<OGD> 


E WARTEN",1 

<ERV> 

3830 

s 

DATA "7 BUTTERN ZUGEORDNET WERDEN. " 

<GIC> 

3010 

3020 

: DOPEN #1,(ZD*),W: IF DSM THEN 2950 
: FÜR 1-1 TO 10: PRINTH1,GF*+ET* ( I1 : PRINTH1 
,GF*+EZ*(I>: NEXT 

<M4N> 

<60J> 

3840 

3B50 


DATA "SABEI MUESSEN DIE ZAHLEN ALLER ANLIE 

DATA "GENDEN BUTTERSEITEN UEBEREINST IMMEN. 

<BMR> 

3030 

: FRINTM1,GF*+CHR*(26) : DCLOSE »1 

<GMT> 


•• 

» " " 

<R15> 

3040 

x SCRATCH(DT*) : IF DS>1 THEN 2950 

<UFB; 

3860 

: 

DATA "£S IST WIE FOLGT VÜRZUGEHEN: " 

<J0O> 

3050 

: RENAMECZD*) TD (DT*): IF DSM THEN 2950 

<963> 

3870 

X 

DATA "- 

<BGA> 

3060 

: GOTO 1350 

<44M> 

3880 

: 

DATA "1. ZUORDNEN VON ZAHLEN ZU BUTTERN" 

<3DB> 

3070 

: 

<6GR> 

3890 

: 

DATA "2. SREHEN DER BUTTERN NACH RECHTS BZ 


3080 

REM HILFE-TEXTE 

<340 


w 

" 

<NCH> 


! FOST : RESTORE 5120: GRAPHIC 0,1: CHAR 1,9 
,1,"C2SPACEJfl BfJSPACEJB£SHF.SPACEJatSHF.SPA 
CE JXCSHF.SPACE>X£SHF.SPACE!£<SHF.SPACE)£!2SP 



ACE >",1 

<P3K> 

3930 

: 

DATA 

3100 

: CHAR 1,9,2, " Ü I LFE - fl E N U E",1 

<E70> 

3940 

3 

DATA 

3110 

: HÖR 1=6 TO 10 STEP 2x READ A*,B*x CHAR 1,1 


3950 

X 

DATA 


1,1," = "+A*+B*x CHAR l,9,I,A*,lx NEXT 

•. RRE > 

3960 

: 

DATA 

3120 

: CHAR 1,9,16,BW*,1: RESTORE 3730: SLOW 

<FDJ> 




3130 

: GET KEY A*: IF A*="jJ" OR A*="D" THEN 3360: 


3970 

: 

DATA 



< JR5 i 

3980 

E 

DATA 

3140 

: IF A*="a" OR A*="B“ THEN 3190: 

<GAV3 

3990 


DATA 

5150 

: IF A*■"£" OR A*="Q" OR A*=C* THEN 1350: 

<58R> 

4000 


DATA 

3160 

: PLAY "ADE": GOTO 3130 

<S05> 


DE. 

5170 

: 

<. 7GV 3 

4010 

: 

DATA 

31B0 

REM BILDSCHIRMAUSGABE 

<3KE“' 

4020 

• 

DATA 

3190 

: B*="": ZZ=0: GRAPHIC 0,1: READ A* 

< N31 > 


CH" 

3200 

: DO L'NTIL A*="ENDE" OR B*=C* 

< CMR.“ 

4030 


DATA 

3210 

: IF ZZ<=BZ THEN 3260: 

< I2L> 

4040 

: 

DATA 

3220 

: CHAR 1,5,24,TA*+"- £JJLL~£<SHF. SPACE >=<SHF. 
SPACE>ABBRUCH",1 

<KDB> 

4050 

" 

DATA 

3230 

3240 

: PLAY "C": GET KEY B* 

: IF B*=C* THEN 3280: 

1 

»O60 : ...TA 
M—“ 

3250 

: GRAPHIC 0,1: ZZ=0: 

< 4F4 3 

4070 


DATA 

5260 

: PRINT A*x ZZ=ZZ+lx 

<3E0> 


Y 

" 

3270 

: READ A* 

<L8N.' 

4080 


DATA 

3280 

LOOP 

<6293 

4090 

: 

DATA 

3290 

IF B*=C* THEN 3090: 

<CIH> 

4100 

: 

DATA 

3300 

PR I NT " Äüfl" +GF*+ “ flfl CSHF. SPACE ) miTT.EJ?" +GFI+R* 


4110 

: 

DATA 


+UN* 

<DK7> 


I 

_« 

3310 

CHAR 1,12,24,TA*,1 

<L91> 

4120 

: 

DATA 

3320 

PLAY "AB": GET KEY A*: GOTO 3090: 

<M5H> 

4130 

: 

DATA 

3330 


<7GV> 

4140 

: 

DATA 

3340 

REM DRUCKERAUSGABE 

<1K6> 

4150 

: 

DATA 

3350 

: TRAP 4670: CLOSE 4: GOSUB 4930: GOTO 3090 

<HCR> 

4160 

: 

DATA 

3360 

: OPEN 4,4: CLOSE 4 

<00N> 

4170 

: 

DATA 

3370 

: TRAP 3350: OPEN 4,4,7: PRINT44,"";x IF DS> 



GT. ", •• 


1 THEN 3350: 

<NI3> 

4180 

: 

DATA 

3380 

x SZ=0: ZZ=73: 

<AKC> 


•• 


3390 

: PRINT R*+"EINZ£LBL?TTER J/N) 

<EFC> 

4190 

3 

DATA 

3400 

s PLAY "B"x GET KEY E* 

<OKN> 


•* 


3410 

: IF E*=C* THEN 3090: 

< JEV> 

4200 

• 

DATA 

3420 

: PRINT E*+R* 

<2RA> 




3430 

: IF E*="J" OR E *="£" OR E*="N" OR E*="fl" TH 


4210 


DATA 


EN 3440: ELSE 3390: 

<SA1> 

4220 

X 

DATA 

3440 

: GRAPHIC 0,1: READ A* 

<7RK> 


TEN" 

3450 

: DO UNTIL A*="ENDE" 

<FET> 

4230 

X 

DATA 

3460 

: GOTO 3490 

<2KS> 


N-" 

3470 

x GOSUB 4930 

<G7B> 

4240 

x 

DATA 

3480 

x A*="ENDE " x GOTO 3640 

<O0V> 


E 


3490 

: IF ZZ<“MZ THEN 3600 

<8T2> 

4250 

X 

DATA 

3500 

s IF ZZ<73 THEN PRINT«4,V*; 

<T1F> 

4260 

X 

DATA 

3510 

x IF E*="N" OR E*="fl" THEN 3540 

<C98> 


'• 


3520 

: PRINT R*+"AITTE NEUES Ä_ATT EINSPANNEN": P 


4270 

x 

DATA 


LAY "FGEF " 

<A01> 

4280 

X 

DATA 

3530 

s PRINT R*+TA*+WF* 

<559> 

4290 

X 

DATA 

3540 

t SZ=SZ+lx TRAP 3470 

<3UD> 

4300 

X 

DATA 


3550 : PRINT»4,"C7SPACE>flCSHF.SPACE>a<3SPACE>a<SH 
F. SPACE>M(SHF. SPACEJIESHF. SPACE>I£SHF.SPACE> 

£ ESHF.SPACE >£<3SPAC£) IXF O C7SPACE >£EITE: 11 »STR 
*!SZ) <VBT> 

3560 : IF DS>1 THEN 3470 <1BF> 

3570 : PRINTH4,"£7SPACE>- 

-“+ R , < 971 > 

3580 : IF DSM THEN 3470 <0J8> 

3590 : ZZ-3 <1128> 

3600 : PRINT A*: ZZ=ZZ+t <HJD> 

36I0 : PRINT04,"£7SPACE>"+A* <BJ4> 

3620 : IF DS>1 THEN 3470: <5A1> 

3630 : READ A* <K0N> 

3640 : LOOP <24P> 

3650 : PRINT#4,"£Ua"+GF*+"aaiSHF.SPACE>ai!XI£S"*SF 

*+R*+UN* CK3C> 

3660 : TRAP 3090: PRINT R*+"VORSCHUB J/N": PLAY 11 

B" <A0I> 


3900 : DATA "C3SPACEJNACH LINKS.","" 

3910 : DATA "£ALLS DIE AUSGESUCHTE iDMBINATION" 
3920 : DATA "FALSCH WAR, IST ES MOEBLICH ZAHLEN-" 
"REIHEN WIEDER WEGZUNEHMEN. BIESE" 
"KOENNEN DANN ZU ANDEREN NOCH NICHT" 
"BELEGTEN BUTTERN ERNEUT ZUGEWIESEN" 
"WERDEN. filESES SPIEL DAUERT SOLANGE, 

"BIS ALLE BUTTERN IN DER RICHTIGEN" 
".SEIHENFOLGE LIEGEN ODER DAS SPIEL" 
"ABGEBROCHEN WIRD.",”” 

“SEI 12 SICHTIGEN IST DAS SPIEL ZU £N 

"FALLS DER SPIELER SICH UNTER DEN 10" 
"BESTEN SPIELERN BEFINDET, KANN ER SI 

“IN DIE XäB-X&H EINTRÄGEN. 

"BIESE TOP-TER KOENNEN VOM BAUPTMENUE 

"ABGESPEICHERT WERDEN.“,"" 

"SEIM NAECHSTEN STARTEN DIESES PROGRA 

"MES WERDEN BEI EINGESCHALTETER £LOPP 

"RICHTIGER EINLIEGENDER DISKETTE UND" 
"VERRIEGELTER ELOPPY DIE ZULETZT GE-" 
"SPEICHERTEN TOP - TEN EINGELESEN.","" 
“SEI EEHLERN IN DEN VORSTEHENDEN 2RBE 

"TEN, WIRD DIE I2£-X£B MIT ABSOLUTEN" 
"SNFAENGERN GEFUELLT." 

"SEI LEEREINTRAGUNG IN DER X2£-I£a" 
"FINDET KEINE £INTRAGUNG STATT.","“ 
"AUF DEM SPIELFELD WIRD RECHTS OBEN" 
"DIE BIS JETZT VERBRAUCHTE SEIT GEZEI 

"BIESES SPIEL WIRD MIT KENNBUCHSTABEN 

"BZW. MIT DEN EURSORTASTEN GESTEUERT, 

DATA "WENN EIN fFEIL ZUR STEUERUNG AUF DEM 


4310 : DATA "ERFORDERLICHE SERFTE:" 
4320 : DATA "-•' 


4330 : DATA "1. EDMMODORE £ 128" 

4340 : DATA "{3SPACEJMIT ELOPPY 1571/1570/1541" 
4350 : DATA "<3SPACE)0DER EOMMODORE 128 2" 

4360 : DATA "2. 40-ZEICHEN BILDSCHIRM MIT ION" 
4370 : DATA "C3SPACEJSINNVOLLERWEISE MIT EARBE" 
4380 : DATA "3. 2RUCKER MIT SDMMODORE-SEICHENSATZ 

4390 : DATA “C3SPACE5WELCHER Mit 0PEN4.4.7 EROEFF 
NET WIRD",”" 

4400 : DATA " «SPACE } VOR AUSDRUCK DER aiLFE-JNFOR 
MATION" 

4410 : DATA "£3SPACE)MUV DER 2RUCKER EINGESCHALTE 
T," 

4420 : DATA "C3SPACEJDIE 2R0GRAMM-2ISKETTE IN DER 
ELOPPY" 

4430 : DATA "C3SPACE5UND DIE ELOPPY EINGESCHALTET 


<J05> 

<4RC> 

<1QP> 

<LFJ> 

<TKC> 

<D2G> 

<RNF> 

<978> 

<LT9> 

<N97> 

<DFM> 

<799> 

<RTA> 

<313> 

<F97> 

<CSA> 

<MLM> 

<CV9> 

<RVL> 

<joh; 

<tvi> 

<MVN> 
<DFC> 
< 4FG> 
<CBI> 

<SUF> 

<H7G> 

<N7U> 

<24V> 


<9MN> 

<2I5> 


<LLP> 

<S84> 

<8BC> 

<CBF> 

<DE9> 

<DJ2> 

<9US> 

<TCA> 

<KUA> 

<FV3> 

<4BQ? 

<L4MJ 

<OCD> 

<06B> 

<L5G> 

<RL0> 

<BTD> 

<RNH> 

<8JP> 

<E9F> 
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LISTINGS 



SEIN. ", 

<H79> 

5350 : LFf="." 

< rcnR V 

4440 

: DATA "SIE DJJ4-Tfl.DTE.CSHF. SPACE1I1UV GEDRÜECK 


5360 : UN*“"UND NUN VIEL SfRV BEIM SPIELEN''!" 

<MKC> 



<4S6> 

5370 : WF*=" WENN FERTIG”: BW*=".BITTE WFHLEN" 

<0F2> 

4450 

: DATA 11 DIESES .PROGRAMM LAEUFT IM 128-ER "EID 


5380 : TRAP 5230: DOPEN »l,(DT*)i IF DS>I THEN 52 



US. , 

<GL5> 

30 

< 4A6 > 

4460 

: DATA "£ü:ISHF.SPACEJflANCHMAL SCHALTET DIES 


5390 : FOR 1 = 1 TO 10: INPUT#!,ET*(I),£Z*CI): NEXT 



ES PROGRAMM" 

<H9R> 


< I9U> 

4470 

: DATA "DEN BILDSCHIRM WEG, UM ZEITINTENSIVE 


5400 : DCLOSE #1 

<3T4> 



<GTI > 

5410 TRAP 4670 

< JU3> 

4400 

: DATA ''.PROGRAMMTEILE ZU BESCHLEUNIGEN.'',' 1 '' 

<0D4> 

5420 DIM M(7,6): REM MUTTER MIT ZAHLEN 

<4TI > 

4490 

c DATA "PROGRAMM-START" 

<6SN> 

5430 DIM Z(7,6): REM ZAHLEN FUER MUTTERN 

<TAI> 

4500 

: DATA "-" 

<871 > 

5440 DIM KI7.1): REM MUTTER-KOORDINATEN 

<HBS> 

4510 

I DATA "ENDE” 

<N68> 

5450 R*=CHR*<13): LI*=CHR*(157) 

<R55> 

4520 

* 

<F1T5 

5460 RE*=CHR*<29>: HO*=CHR*(145) 

< PP5 > 

4530 

REM ANFANGSMUSIK 

<4CH> 

5470 RU*=CHR*(17): L*=CHR*(32>: GF*=CHR*(34) 

< 5HP> 

4540 

l B*="": RESTDRE 6200: SLOW 

<0TL> 

5480 PP*=CHR*<7>: C*=CHR*(3): V*-CHR*(12) 

<MH8> 

4550 

: DO UNTIL B*><"" 

<UMM> 

5490 S3*="C17SPACE>": S3*=S3*+S3* 

<003> 

4560 

READ At: IF A*="Z" TUEN RESTORE 6200: GOTO 


550C F1=1: F2-2 

< VJP> 


4560 

<6H7> 

5510 MZ=62: REM MAX. DRUCKZEILEN 

<L3N> 

«370 

s PLAY A*: GET Bt 

<TT6: 

5520 8Z=22: REM MAX. BILDSCHIRMZEILEN 

< R2F > 

4500 

: LOOP 

<IIP> 

5530 KEY 8,. RESTORE 4990 

<ETK> 

4590 

: FAST 

' G2J > 

5540 PRINT CHR*(14) jCHR#(11) 

< INI > 

4600 

RETURN 

< 947 > 

5550 : 

<EHR> 

4410 

t 

< dhn: 

5360 REM MUTTER-KOORDINATEN 

<44G> 

4620 

COLOR 0,7: COLOR 1,0: SPRITE 2,0 

<H42> 

5570 : FOR 1=1 TO 7: READ K<1,O),K(I,I): NEXT 

<0UE> 

4630 

GRAPHIC 0,1: SPRITE 1,0: SPRITE 2,0: SLOW 

<4F7> 

3580 t 

<811> 

4640 

GOTO 4700 

<«BE> 

5590 REM MUTTER-WERTE 

<7SV> 

4630 

: 

' FHV' 

5600 : RESTORE 5010 

<HVS> 

4660 

REM KEHLER 

C4KI > 

5610 : FOR 1=1 TO 7 

<0Q2> 

<«670 

: GRAPHIC 0,1: SLOW 

<6F3; 

5620 : FOR J=1 TO 6: READ Z«I,J)t NEXT J 

<F67> 

460O 

: PRINT "ERROR: CSHF. SPACE 1'': ERR* (ER 1 

< EOD > 

5630 : NEXT I 

<Ö24> 

4690 

: PRINT "IN LINE: "sEL 

<0V6> 

5640 : 

<D1L> 

4700 

IEV 0, "RUN"TCHR* (34)4*''OH MUTTER"tCHR*(34)+R* 

<IL0> 

5650 REM WE-ISSER PFEIL 

<5CL> 

4710 

PRINT Vf; 

<GR3> 

5660 : GRAPHIC 1,1: COLOR 1,2 

<HR8> 

4720 

END 

<GI6> 

5670 : DRAW 1,3,9 TO 15,9 TO 15,10 TO 3,10 

<CAK> 

4730 

1 

DHN.' 

5680 : DROW 1,11,4 TG 16,9 TO, 16,10 TO 11,15 

<VJC> 

4740 

REM UPRO ZAHLENFELD 

<4K I 

5690 : DROW 1,12.4 TO 17,9 TO 17, IO TO 12,15 

<400> 

4750 

: COLOR I,B: CHAR 1,0,24,"ZAHLENREIHE WFHLEN 


570O : SSHOPE e*,0,0„21,20: 3PRSAV A*,I 

<6JB> 


42SPACE >— > RETURN C4SPACE > " 

<TC!C 

5710 : SPRITE 1 , 1,2.0,SPRITE 1,0 

<8EG> 

4760 

: PLAY "D": MOVSPR 2,206,ZI*3p5I: SPRITE 2,1 


5720 : 

<F1T> 


: SPRITE 3,0: SLOW 

<1S8 

5730 REM SCHWARZER PFEIL 

<4CH> 

4770 

: GET A*: ]F At=”" THEN GOSUB 150: GOTO 4770 

<ROM> 

5740 : GRAPHIC 1.1: COLCR 1,1 

<HN9> 

4700 

: IF Af=RUf THEN 4870 

<B8H> 

5750 : DRAW 1,3,9 TO 1.5,9 HO 15,10 TO 3,10 

<CAK> 

4790 

: IF Af»HO* THEN 4B50 

0OH > 

5760 : DRAW 1,11,4 TO 16,9 TO 16,10 TO 11,15 

<U3A> 

*»800 

: IF A*=L* OR «t=R* THEN 4900 

<'930 

5770 : DRAW 1,12,4 TD 17,9 TO 17,10 TO 12,15 

<566 > 

4'310 

: IF A*=C* THEN 4900 

<IP2> 

5780 : SSHAPE A*.0,0,23,20: SPRSAV A*,2 

<6F8> 

4820 

: A=VAL <A*) 

<KFO> 

5790 : SPRITE 2.1 , 1, O, 0, 0. O: SPRITE 2,0 

<GTI> 

4830 

: IF A3O AND AC8 THEN ZI=A: GOTO 4900 

M4G ' 

5800 : 

<105? 

4840 

: GOSUB 1160: GOTO 4750 

<CJ4- 

5810 REM SPRITE ROTER KREIS 

<3CD> 

4850 

: IF ZI<2 THEN ZI=*7: ELSE : ZI = ZI-1 

: 270' 

5820 : COLOR 1,2: GRAPHIC 1,1 

<6DE> 

4B60 

: GOTO 4760 

< SS9' 

5830 : FOR 1=1 TO 7: CIRCLE 1,10,10,I,I,,,,1: NEX 


4870 

: IF ZI>6 THEN ZI=1: ELSE : ZI=ZI*t 

' JN6‘ 



48S0 

: GOTO 4760 

2S9) 

5840 : JRAW 1,10,10 

<40H> 

4890 

: REM ZAHLEN AUSGELOEST 

;7GV? 

5850 : SSHAPE A*,0,0,23,20: SPRSAV A*,3 

<NFC> 

490O 

RETURN 

<807? 

5860 : SPRITE 3,1,3,1,0,0,0: SPRITE 3,0 

<88G> 

4910 

: 

<2GB.s 

5870 RETURN 

<0Q7> 

4920 

REM UPRO DRUCKER-FEHLER 

<248> 

5880 : 

<50L> 

4930 

: TRAP 4670 

<L22> 

5890 REM BILDSCHIRM AUFBAUEN 

< 1C5> 

4940 

: PRINT RS+" JBUCKER NICHT BETRIEBSBEREIT": P 


59O0 : FAST : SRAPHIC 1,1 

<GIT> 


LAY "ABC" 

<QI4> 

5910 : COLOR 0,7: COLOR 1,8 

<DTP> 

4950 

: PRINT TA*: GET KEY 8* 

<B5Q> 

5920 : CHAR 1,2,0,-0 HI3SPACE1M U T T E R",1 

<TOP> 

4960 

RETURN 

<8K7> 

5930 : CHAR 1,34,0,“:" 

<9SP> 

4970 


< 1G7 > 

5940 : CHAR 1,37,0,":" 

<H30> 

4980 

END 

<SNM' 

5950 : CHAR 1,28,12,"ZUORDNEN" 

<UJI> 

499© 

: DATA 93,100,93,50,135,79,135,121,93,142,51 


5960 : CHAR 1,28,13, “WEGNEHMEN'' 

<40F> 


,121,51,79 

<KN4 ' 

5970 : CHAR 1,28,14 , "DREHEN —>'■ 

<0NT> 

5000 

REM MUTTER-WERTE 

<74S> 

5980 : CHAR 1,28,15,"DREHEN <—" 

<MTA> 

5010 

: DATA 1,2,3,4,5,6 

<77H> 

5990 : CHAR 1,28,16, "SPIEL-ENDE" 

<JT0> 

5020 

: DATA 6,5,4,3,2,1 

<HP7> 

6000 : CHAR 1,28,22,"RICHTIG" 

<54R> 

503O 

: DATA 1,6,4,2,5,3 

<JL1> 

6010 : COLOR 1,2: CHAR 1,26,O,"ZEIT:" 

<C6L> 

5040 

: DATA 1,6,2,4,5,3 

<EAM> 

6020 : FOR 1=1 TO 7 

<3Q2> 

5050 

: DATA 1,4,3,6,5,2 

<2F7> 

6030 : Z (1,0) =0: M(I,0>=O 

<NMS> 

5060 

: DATA 1,4,6,2,3,5 

< 1FB> 

6040 : FOR J=1 TO 6: CHAR 1,25»J*2,I»1,STR*<Z(I,J 


S070 

: DATA 1,6,5,3,2,4 

CRO0,' 

)): M (I, J ) =0: NEXT 

<UFB> 

5080 

REM HAUPTMENUE-WERTE 

<54K> 

6O50 : X=K(1,0): Y=K(I,1>: O=Y-20: U=Y+2© 

<052> 

509O 

t DATA "5." , "PIEL BEGINNEN","fl","ILFE" 

<NJS> 

6060 : DRAW l.X-10,0 TO X+10,0 TO X*30,V TO X+10, 


5100 

: DATA "fl." , "BSPEICHERN ERGEBNISSE" , "Ä" , " U I 


U TO X-IO.U TO X-30.Y 

<MBA> 


T / C2SPACE)JL N D E" 

< DD6 > • 

6070 : DRAW 1.X-30.Y TO X-10,0 

< 114> 

511« 

REM HILFE-TEXTE 

<7SV> 

6080 : CIRCLE 1,K(I,0),K<1,1),09,09,,,,1 

<L5L' 

5120 

: DATA "£" ,"ILDSCHIRM-AUSGABE","B" ,“RUCKER-fl 


6090 : X=K(I,0)-3: Y»K<I,l>+4 

<PEN> 


USGA8E","£","UIT / AAUPTMENUE" 

CB5F> 

6100 : ON I GOSUB 770,820,870,910,960,1010,1060 

<KQ6> 

5130 

DATA -2,-11,11,-4,12,10,-2,19,-17,10,-17,-4 

■CSGJ) 

6110 : NEXT 

<OJß> 

5140 

DATA 1,1,2,4,1,2,3,5,1,3,4,6,1,4,5,1,1,5,6,2 


6120 : BOX 1,0,12,319,185 

< 149 > 


,1,6,7,.3 

<LD3> 

6130 : DRAW 1,175,12 TO 175,IBS 

<0S2> 

5150 

DATA 2,3,3,6,3,4,4,1,4,5,5,2,5,6,6,3,6,1,7,4 


6140 : DRAW 1,210,185 TO 210,12 

<Q8I> 


,7,2,2,5 

<VD9> 

6150 : DRAW 1,175,80 TO 319,80 

<091 > 

5160 

END 

<8H6> 

6160 : DRAW 1,175,170 TO 319,170 

<RCG> 

5t70 

: 

<BHF> 

6170 RETURN 

<P67> 

5180 

REM UPRO VORPROGRAMM 

<5KM> 

6180 : 

<A19> 

S190 

REM M < X,0) » WEICHE ZAHLENREIHE 

<5SN> 

6190 REM DATAS ANFANGSMUSIK 

<6SR> 

52O0 

REM Z(0,0> 1-7 = ZUGEORDNET 

<640> 

6200 : DATA “T6U7004I •', "DG" , "GA" , "GG" 

<LM3> 

5210 

REM Z(0,0) 0 = NICHT ZUGEORDNET 

<6CP> 

6210 : DATA "BA”,"DBG","AB","QGI“,"#FD" 

< BP I > 

5220 

REM ERDEBNIS-TAB-FEHLER 

<6KQ> 

6220 : DATA "GA" , "BQ5C" , "04BA" , "G#FD" 

<2G7> 

5230 

: DCLOSE «1: PLAY "ABC" 

<■£16.' 

6230 : DATA "EBFQ","GIGR",".ES","#FI" 

<VLA> 

524 0 

: FOR 1 = 1 TO 10: EZ*CI)=LZ*: ET*(I)=AN*: NEX 


6240 : DATA "EDE","#FOG","I.DS“,"EID” 

<120 


T 

<PJT' 

6250 : DATA "C03B","04CQD","I.ES","#F" 

<L0V> 

5250 

: GOTO 5410 

<D4C> 

6260 : DATO "IED","EWF","GED","G#F" 

<EQL> 

5260 

COLOR 0,7: TRAP 4670: GRAPHIC 0,I 

< 582' 

6270 : DATA “AOG","IGHR","Z" 

<JGU> 

5270 

TA*=''JASTE DRUCKEN " 

<83S> 

6280 END 

<0G6> 

5280 

CHAR 1,10,12,TA*: GOSUB 4540: GRAPHIC 0,1 

<TNG ;• 



5290 

REM ERGEBNIS-TABELLE 

<4CH> 



53O0 

: DIM ETt<11): REM ERGEBNIS-TAB-NAME 

<R2R> 



5310 

: DIM EZ*(11): REM ERGEBNIS-TAB-ZEIT 

<FCR> 



5320 

: LZ*="995959": ZD*="ERG***" 

<OD0> 



5330 

: DT*="MUTTER-ERG": KL*=CHR*C14) 

<;jd5> 



5340 

: AN*=" ANFÄNGER." 

<ETI> 

Listing 1. (Schluß) 
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LISTINGS 


Bildschirmmasken 


»gepackt« dagegen nur 10 bis 50 Blocks. Dieses »Kompri¬ 
mieren« dauert 2 bis 3 Sekunden, unmittelbar darauf wird 
das File gespeichert. Bei gleichen Filenamen auf Diskette 
werden Sie gefragt, ob Sie das bereits bestehende File 
überschreiben möchten. Die Auswahl geschieht mit den 
Cursortasten, bei »Nein« erfolgt ein Rücksprung ins Haupt¬ 
menü. Sollte während des Speichervorgangs ein Fehler 
auftreten, erscheint eine entsprechende Meldung auf dem 
Bildschirm. Die RETURN-Taste bewirkt eine Rückkehr in 
das Hauptmenü. 

2. Bildschirmmasken von Diskette laden 

Auf Diskette abgelegte Masken lassen sich damit wieder 
in den Speicher holen. Dabei werden alle elf Bildschirme, 
falls sie belegt sind, in den Speicher geladen. Geben Sie 
dazu den entsprechenden Filenamen ein. Das »Ent¬ 
packen« nach dem Laden dauert ebenfalls 2 bis 3 Sekun¬ 
den. Auch hier wird ein eventuell auftretender Fehler ange¬ 
zeigt. Das Hauptmenü erreichen Sie durch Druck auf die 
RETURN-Taste. 

3. Bildschirmmasken ausdrucken 

Epson-kompatible Drucker eignen sich dazu, die im 
Eingabe-Modus sichtbare Bildschirmmaske auszu¬ 
drucken. Mit den Cursortasten können Sie unter vier ver¬ 
schiedenen Druckmodi auswählen: doppelte Dichte (120 



Ein Programm ist nicht zuletzt immer so gut wie 
die Bildschirmausgabe, die es benutzt. Anspre¬ 
chende Menügestaltung, übersichtliche Einga¬ 
besteuerung sind wichtige Kriterien für den An¬ 
wender, um oft und gerne mit einem Programm 
zu arbeiten. Mit dem Programm »Maskengenera¬ 
tor« geben wir Ihnen ein effektives Werkzeug zur 
Gestaltung solcher Masken in die Hand. 

D ieses Maschinenprogramm bietet die Möglichkeit, 

Bildschirmmasken (Titelbilder, Eingabemenüs etc.) 
im 80-Zeichen-Modus schnell und problemlos zu er¬ 
stellen, auf Diskette zu speichern und in eigene Program¬ 
me einzubauen. Zeilen und Spalten können exakt positio- 

Programmstart 

niert oder kopiert werden. Insgesamt stehen Ihnen elf Bild¬ 
schirme zur Verfügung. Der »Maskengenerator«, im folgen¬ 
den kurz »MSG« genannt, generiert die entworfene Maske 
sowohl als Basic-, Maschinenprogramm oder Assembler- 

Quellcode. Speziell diese Funktion wird alle Freunde der rv , , 

Maschinensprache begeistern, da sich der Quellcode mit dp 120 Punkte P ro lnch )- vierf ache Dichte (240 dpi), Bild 
dem Assembler »TOP-ASS« weiter verarbeiten läßt. 

»MSG« ist ein Maschinenprogramm (Listing 1), das Sie 
bitte mit dem MSE (Seite 158) eingeben. Laden und starten 
Sie das Programm wie ein ganz normales Basic- 
Programm: 

RUN "MASKENGENERATOR" 

Obwohl »MSG« sowohl im ASCII- als auch im DIN-Modus 
arbeitet, muß es zunächst ausschließlich bei entriegelter 
ASCII-/DIN-Taste gestartet werden. Nun benötigt der Gene¬ 
rator 4 Sekunden, um die zehn Hilfsbildschirme in BANK 1 
zu initialisieren. Danach erscheint das Hauptmenü (Bild 1) 
mit elf verschiedenen Auswahlmöglichkeiten. Mit den Cur¬ 
sortasten wählen Sie den gewünschten Menüpunkt an, der 
mit einem revers unterlegten Balken gekennzeichnet ist. 

Die RETURN-Taste aktiviert das gewünschte Untermenü. 

Das Programm läßt sich auch unverändert in ein 32K- 
EPROM (27256) brennen und im freien Steckplatz (U36) 
des C128 unterbringen. Die Startanweisung lautet dann: 

BANK 12:SYS DEC("807F") 

Das Laden von Diskette entfällt damit. Der restliche Be¬ 
reich des EPROMS ($C000 bis $FFFF) steht selbstver¬ 
ständlich noch für andere Programme zur Verfügung. 

1. Bildschirmmasken auf Diskette speichern 
Damit lassen sich alle elf zur Verfügung stehenden Bild¬ 
schirme (=Masken) unter Angabe eines entsprechenden 
Filenamens auf Diskette speichern. Der Filename darf nur 
15 Zeichen lang sein, da das Programm automatisch noch 
ein Erkennungsbyte anfügt. Die Bildschirmmaske wird »ge¬ 
packt«, das heißt alle Zeichen, die sich mehr als dreimal 
wiederholen (beispielsweise SPACE, Trennstriche etc.) 
werden durch einen 3-Byte-Code ersetzt. Dadurch redu¬ 
ziert sich der benötigte Speicherplatz der Maske erheblich. 

Bei der Bildschirmausgabe wird das File dann wieder »ent¬ 
packt«. Der Vorteil liegt auf der Hand: Die Maske würde »un- 
gepackt« etwa 175 Blocks auf der Disk belegen, verbraucht 


• Ein Program von Dirk Bona -• Copyright in 1389 * 



Bild 1. Die einzelnen Menüpunkte werden mit cCURSOR- 
abwärts/aufwärts > ausgewählt 

schirmgrafik I (80 dpi) und Bildschirmgrafik II (90 dpi). Die 
vom Programm benutzte Druckerroutine wurde für einen 
Epson-kompatiblen Star LC-10 entworfen. 

4. Bildschirmmaske eingeben 
Ohne Zweifel ist dies der wichtigste Menüpunkt des Pro¬ 
gramms. Nach Anwahl schaltet sich der Editier-Modus ein, 
und die gewünschte Maske kann erstellt werden. Das Pro¬ 
gramm bietet noch einige leistungsfähige Zusatzfunktio¬ 
nen. Da die ASCII-/DIN-Taste aus programmtechnischen 
Gründen gesperrt ist, dient jetzt die ENTER-Taste auf dem 
Zehnertastaturblock zum Umschalten zwischen diesen 
beiden C128-internen Zeichensätzen. Beim Erstellen einer 
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Bildschirmmaske ist das Benutzen von Anführungszeichen 
(") nicht vorgesehen. GeSHIFTete Leerzeichen (SHIFT 
SPACE) werden durch einen kleinen Punkt sichtbar ge¬ 
macht. Das Editieren einer Maske, die viele solcher Shift- 
Leerzeichen enthalten soll, wird damit erheblich erleich¬ 
tert. 

Zur weiteren Vereinfachung bleiben auch die automati¬ 
sche Zeilenverknüpfung und der Steuerzeichenmodus im¬ 
mer abgeschaltet. Erlaubt sind bei der Eingabe der Bild¬ 
schirmmaske alle Kombinationen von Blinken, Unterstrei¬ 
chen, Revers-Darstellung, Einschalten der Großschrift/ 
Blockgrafik oder des Klein-/Großschriftzeichensatzes so¬ 
wie die Anwendung aller ESC-Befehle. Eine Ausnahme bil- 



Bild 2. Dieses Demo finden Sie auch auf der Service- 
Diskette zu diesem Heft 


det die Umschaltung auf den 40-Zeichenbildschirm (ESC- 
X), diese Funktion ist abgeschaltet. 

Im Editiermodus des Programms sind folgende Tasten 
mit neuen Funktionen belegt: 

a) Funktionstasten 

< F 1 > = Reverse on 
<F2> = Reverse off (ESC-O) 

<F3> = Bildschirmfarbe + 1 

<F4> = Bildschirmfarbe - 1 

<F5> = Bildschirmzeile bis Cursorposition löschen 

<F6> = Bildschirmzeile ab Cursorposition löschen 

<F7> = Spalte bis Cursor löschen 

<F8> = Spalte ab Cursor löschen 

b) Zehnertastatur-Block 

Durch Druck auf die Tasten <0> bis <9> vertauschen 
Sie den aktuellen Bildschirm mit dem, dessen Nummer Sie 
gewählt haben. Ebenso werden alle Parameter und Attribu¬ 
te wie Bildschirm- und Zeichenfarbe sowie die Cursorposi¬ 
tion übernommen. 

Drücken Sie die Zifferntasten zusammen mit SHIFT, so 
wird der sichtbare Bildschirm an den der Zahl entsprechen¬ 
den Speicherplatz in Bank 1 kopiert (zum Beispiel als Si¬ 
cherheitskopie des Bildschirms, der gerade bearbeitet 
wird). 

Das Drücken der Plustaste (< + >) auf der Zehnertasta¬ 
tur erhöht die aktuelle Zeichenfarbe um »eins«, mit der Mi¬ 
nustaste (<->) geschieht das Gegenteil. Werden diese 


beiden Tasten zusammen mit SHIFT gedrückt, so verän¬ 
dern Sie die aktuelle Zeichenfarbe unter dem Cursor. 

Drücken Sie die Taste mit dem Dezimalpunkt auf der Zeh¬ 
nertastatur, so verschwindet der Cursor. Anschließend 
»scrollen« Sie mit den Cursortasten die aktuelle Bildschirm¬ 
zeile nach oben oder unten. Mit der RETURN-Taste kopie¬ 
ren Sie nun diese aktuelle Zeile in den Bildschirm. Ein wei¬ 
teres Betätigen der Punkt-Taste veranlaßt »MSG«, in den 
Eingabemodus zurückzukehren. Benutzen Sie den Punkt 
zusammen mit der SHIFT-Taste, so läßt sich die aktuelle 
Spalte an eine andere Stelle kopieren. Dadurch lassen sich 
Zeilen und Spalten, die in einer Maske mehrmals verwen¬ 
det werden, problemlos kopieren - so oft Sie möchten. 

Die ENTER-Taste des Zehnerblocks dient zum Umschal¬ 
ten zwischen ASCII- und DIN-Zeichensatz. 

c) <LINE FEED> und <NO SCROLL> 

Durch Drücken der LINE FEED-Taste wird die aktuelle 

Zeile zentriert, mit <NO SCROLL> die entsprechende 
Spalte. 

d) <HELP> 

Hier läßt sich ein Hilfsmenü mit einer Übersicht der ge¬ 
nannten Editierfunktionen aufrufen. Keine Angst, der ak¬ 
tuelle Inhalt Ihrer gerade bearbeiteten Bildschirmmaske 
und die dazugehörigen Parameter gehen nicht verloren. 
Die Daten werden zwischengespeichert und sind nach Ta¬ 
stend* ck wieder verfügbar. 

e) < RUN/STOP > 

Ein Druck auf diese Taste bringt Sie jederzeit ins Haupt¬ 
menü zurück, die Tastenkombination < RUN/STOP 
RESTORE> ist gesperrt. 

f) <CLR/HOME> (Bildschirm löschen) 

Diese Funktion kennen Sie, die Tastenkombination 

< SHIFT CLR/HOME> löscht den kompletten Bildschirm. 
Um ein versehentliches Löschen Ihres Arbeitsbildschirms 
zu vermeiden, müssen Sie diese Taste zweimal hinterein¬ 
ander betätigen. 

5. Directory ausgeben 

Um beispielsweise festzustellen, wieviel Platz auf der 
eingelegten Diskette noch vorhanden ist, aktivieren Sie 
den fünften Menüpunkt. Er listet das Inhaltsverzeichnis 
auf dem Bildschirm und gibt einen eventuell auftretenden 
»Diskerror« aus. 

Bildschirmmasken generieren 


Mit den folgenden Menüpunkten besteht die Möglichkeit, 
die erstellte Bildschirmmaske als lauffähiges Programm 
oder als Assembler-Quellcode zu generieren. Bearbeitet 


Kurzinfo: Maskengenerator 


Programmart: Tool zur Erstellung von Bildschirmmasken 
Laden: RUN"MASKENGENERATOR" 

Start: Das Programm startet nach RUN automatisch 
Besonderheiten: Komfortable Erstellung von Bildschirmmasken 
durch einen leistungsfähigen Editor. Der Maskengenerator erzeugt 
verschiedene Programmfiles, wie Basic-Listings oder »TOP-ASS« - 
Quellcodes, die sich in eigene Programme weiterverarbeiten las¬ 
sen. 

Programmautor: Dirk Bozza 



SONDERHEFT 44 
















LISTINGS 


wird immer die Biidschirmmaske, die im Eingabemodus 
sichtbar ist. Je nach Art und Umfang der Maske kann der 
Generierungsvorgang zwischen 1 und 8 Sekunden dau¬ 
ern. »MSG« berücksichtigt alle eingestellten Parameter, wie 
Unterstreichen, Revers-Darstellung, Blinken, Groß-/Klein- 
schrift, Grafikzeichensatz sowie die aktuelle Bildschirmfar¬ 
be. Einen invertierten Bildschirm erkennt das Programm al¬ 
lerdings nicht. Auf das Generieren der Maske hat das aber 
keinen negativen Einfluß. Auch ein ursprünglich invers dar¬ 
gestellter Bildschirm behält nach der Umwandlung seine 
Funktionsfähigkeit. Schalten Sie vor dem Start einer sol¬ 
chen Maske den Bildschirm auf »revers«. Im Direktmodus 
geben Sie dazu < ESC > + <R> ein (beide Tasten gleich¬ 
zeitig drücken). 

Innerhalb eines Programms erzielen Sie mit 
SYS DEC("C01E"),82 
denselben Effekt. 

Beim Generieren einer Maske als »TOP-ASS«-Quellcode 
legt der Generator die Startadresse mit ».base $1300« auf 
den Bereich ab »4864« fest. Möchten Sie die Maske bereits 
als fertiges Maschinenprogramm generieren, so müssen 
Sie die gewünschte Startadresse dafür eingeben. Dabei 
sollten Sie beachten, daß das Programmende nicht über 
$BFFF liegt, da ab $C000 das Kernel-ROM eingeblendet 
wird. Das generierte Maschinenprogramm würde dann 
nicht einwandfrei laufen. Da durchaus Anwendungen an ei¬ 
ner Adresse über $C000 denkbar sind, überprüft »MSG« 
nicht das Erreichen dieser Speichergrenze. 

6. Top-Ass Quellcode packed generieren 

Für eine Weiterverarbeitung der Bildschirmmaske mit 
dem Assemblerprogramm »TOP-ASS« erzeugt das Pro¬ 
gramm einen entsprechenden Quellcode. Da auch hier das 
File »gepackt« wird, ist es notwendig, der eigentlichen, 
»komprimierten« Bildschirmmaske einen »Entpacker« vor¬ 
anzustellen. Der dokumentierte Quellcode des »Ent- 
packers« befindet sich im Programm und ist nun mit der ge¬ 
nerierten Maske auf Diskette gespeichert. Eine spätere 
Bildschirmausgabe wird durch das »Entpacken« nicht lang¬ 
samer, sondern sogar schneller. 

Da der »Entpacker« nur 78 Byte Speicherplatz benötigt, 
lohnt sich sein Einsatz bereits bei kleineren Bildschirm¬ 
masken. Sie sollten also ebenfalls »gepackt« generiert wer¬ 
den. Auch das Programm benutzt diesen »Entpacker« für 
die Biidschirmausgabe und müßte in etwa um zehn Blocks 
auf Diskette länger sein, würden die Bildschirmmasken un- 
codiert vorliegen. Grundsätzlich sollten Sie eine Maske im¬ 
mer dann »packen«, wenn sich darin viele Zeichen wieder¬ 
holen (Linien, reverse Balken etc.). Ein Beispiel: Eine »nor¬ 
male« Maske (Bild 2), die 2529 Byte im Speicher benötigt, 
braucht für die Bildschirmausgabe 1,8 Sekunden. In »ge¬ 
packter« Form umfaßt sie nur noch 1271 Byte und wird in 
weniger als einer Sekunde ausgegeben. 

7) Maschinenprogramm packed generieren 

Im Prinzip gilt hier das unter Punkt 6 erläuterte Verfahren. 
Mit diesem Menüpunkt wird bereits ein lauffähiger Maschi¬ 
nencode erzeugt. Die Startadresse des Maschinenpro¬ 
gramms muß angegeben werden, danach wird es auf Disk 
gespeichert. Es kann nun mit »BLOAD« wieder geladen 


und mit »SYS Startadresse« aufgerufen werden. Haben Sie 
Ihre Maske in Adresse $4000 abgelegt, so lautet der Befehl: 

SYS 16384 

Dies ist vor allem für die Anwender interessant, die kein 
Assemblerprogramm (zum Beispiel »TOP-ASS«) besitzen. 

8) TOP-ASS Quellcode generieren 

Wie Punkt 6, nur wird die Bildschirmmaske als »norma¬ 
ler« Quellcode erstellt, also »ungepackt«. Vorangestellt 
wird eine kleine Ausgaberoutine. Sie können diesen Quell¬ 
code nun weiterverarbeiten oder in eigene Assemblerpro¬ 
gramme einbinden. Falls Sie die Ausgaberoutine nicht 
brauchen, löschen Sie sie einfach. 

9) Maschinenprogramm generieren 

Hier gilt im wesentlichen das unter Punkt 7 Erwähnte. 
Der Unterschied liegt darin, daß dieser Menüpunkt ein lauf¬ 
fähiges Maschinenprogramm »ungepackt« erzeugt. Auch 
hier geben Sie die Startadresse, ab der das Maschinenpro¬ 
gramm liegen soll, ein. 

10) Basic-Programm generieren 

Dieser Menüpunkt ist hilfreich für jeden, der in Basic 7.0 
programmiert. Die erstellte Maske liegt als lauffähiges 
Basic-Programm vor, also mit Zeilennummern und den be¬ 
kannten Basic-Anweisungen. Auf die Verwendung von 
FOR-NEXT-Schleifen verzichtete der Programmautor, da 
diese Basic-Befehle die Bildschirmausgabe erheblich ver¬ 
langsamen. Statt dessen kommen die bekannten Anwei¬ 
sungen »PRINT« und »CHAR« zum Einsatz. Eine so erstell¬ 
te Maske im Basic-Format können Sie nun ohne weiteres in 
eigene Basic-Programme einbinden. 

11) Programm beenden 

Nach Wahl dieses Menüpunktes erscheint eine Sicher¬ 
heitsabfrage, die Sie ebenfalls mit < CURSOR aufwärts> 
oder <CURSOR abwärts> beantworten müssen. Haben 
Sie sieb für »Ja« entschieden, wird ein System-Reset aus¬ 
geführt. 

Allgemeine Daten zum Programm 


Das Programm ist in reiner Maschinensprache geschrie¬ 
ben und besitzt eine Kopfzeile in Basic. Es belegt den Spei¬ 
cherbereich von $1C01 (7169) bis $403F (16447), der Ein¬ 
sprungbefehl lautet »SYS 7331« (beispielsweise nach ei¬ 
nem RESET). Obwohl es im 80-Zeichen-Modus lauffähig 
ist, können selbstverständlich auch Masken für die 40-Zei- 
chen-Darstellung entworfen werden. Dabei müssen Sie 
beim Erstellen einer Maske lediglich darauf achten, daß 
nicht mehr als maximal 40 Zeichen pro Maskenentwurfs¬ 
zeile auf dem Bildschirm eingegeben werden (mit < RE¬ 
TURN > abschließen!). Bei Entwurf so einer Maske für den 
»kleinen« Bildschirm als Basic-File können dann noch 
nachträglich die gewünschten Bildschirm- und Zeichenfar¬ 
ben in Zeile 100 in Form von COLOR-Anweisungen unter¬ 
gebracht werden. 

Für alle, die sich die Tipparbeit ersparen wollen, bieten 
wir natürlich wieder unsere Programm-Service-Diskette 
an. Auf dieser finden Sie dann auch zwei Demos zum Mas¬ 
kengenerator. (Dirk Bozza/Harald Beiler/ag) 


Name 

maskengenerator IcOl 4040 

lc4l 

33 20 lc 20 Od 12 20 le 

ae 

lc91 

91 fc e6 fa dO 02 e6 fb 

6a 




lc49 

28 43 29 20 31 39 38 39 

91 

lc99 

e6 fc dO f2 e6 fd 24 fd 

7b 

leOl 

7e lc 00 00 9e 37 33 33 

64 

lc51 

20 42 59 20 c4 49 52 4b 

63 

leal 

10 ec 4c b2 20 c7 26 69 

3c 

lc09 

31 3a 22 Od 91 Oe le 12 

aO 

lc59 

20 c2 4f 5a 5a 41 lc 20 

5a 

lca9 

27 fe 27 Od 22 52 21 ff 

f4 

lcll 

20 20 20 20 20 20 20 20 

11 

lc6l 

Od lc 12 20 20 20 20 20 

c9 

lebl 

2c 80 2b 84 2f 25 2e 98 

7f 

lcl9 

20 20 20 20 20 20 20 20 

19 

le69 

20 20 20 20 20 20 20 20 

69 

lcb9 

2e 42 21 90 98 lf 9a le 

8c 

lc21 

20 20 20 20 20 20 20 20 

21 

lc71 

20 20 20 20 20 20 20 20 

71 

lccl 

99 97 9f lc 96 81 9c 95 

a4 

lc29 

Od 12 20 le 20 cd 4l 53 

27 

le79 

20 20 20 9f 00 00 00 a9 

f9 

lcc9 

9e 9b 05 01 02 04 08 10 

17 

lc31 

4b 45 4e 47 45 4e 45 52 

le 

lc81 

lc aO 01 85 fd 84 fe a9 

2a 

lcdl 

20 40 80 40 20 10 08 04 

e4 

lc39 

41 54 4f 52 20 d6 32 2e 

aO 

lc89 

80 88 85 fb 84 fa bl fa 

Ob 

lcd9 

02 01 57 2c 50 2c 52 2c 

bf 


60 
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lcel : 

50 

2c 

01 

03 

04 

06 

54 

aO 

eb 

lf4l 

: 8c 

b9 

02 

aO 

00 

86 

02 

a2 

cO 

21 al : 

4c 

82 

21 

a5 

90 

dO 

05 

85 

da 

lce9 : 

01 

ld 

78 

fO 

50 

5a 

02 

80 

96 

lf49 

: 7f 

20 

af 

02 

a6 

02 

60 

a9 

54 

21a9 : 

fO 

4c 

cf 

ff 

20 

55 

20 

68 

bl 

lcfl : 

01 

2a 

lb 

00 

00 

24 

lb 

20 

9c 

lf51 

: fc 

20 

70 

lf 

4c 

fd 

le 

a9 

de 

21bl : 

68 

20 

d3 

lf 

bO 

03 

20 

6e 

83 

lcf9 : 

4l 

5b 

61 

aO 

a9 

aa 

ba 

be 

ad 

lf59 

: fa 

20 

70 

lf 

4c 

f6 

le 

a9 

ac 

21b9 : 

le 

20 

7a 

ld 

4c 

29 

21 

aO 

fd 

IdOl : 

cl 

24 

ld 

9d 

13 

93 

94 

14 

18 

lf6l 

: a8 

20 

70 

lf 

4c 

04 

lf 

a9 

ce 

21cl : 

00 

bd 

54 

ld 

84 

a8 

85 

a9 

50 

ld09 : 

51 

47 

44 

4f 

45 

42 

4d 

46 

21 

lf69 

: 09 

20 

70 

lf 

4c 

c3 

ld 

8d 

f5 

21c9 : 

09 

08 

aO 

06 

84 

09 

85 

Oa 

7a 

ldll : 

41 

4e 

52 

49 

4a 

4c 

4b 

57 

la 

lf71 

: aa 

02 

aO 

00 

86 

02 

a2 

7f 

46 

21dl : 

a9 

00 

85 

fa 

85 

fb 

85 

fc 

83 

ldl9 : 

40 

3f 

04 

05 

06 

03 

33 

d3 

88 

lf79 

: 20 

a2 

02 

a6 

02 

60 

86 

02 

81 

21d9 : 

09 

08 

85 

fd 

60 

a5 

eO 

a4 

07 

ld21 : 

24 

9a 

25 

96 

25 

9e 

24 

8d 

al 

lf81 

: a2 

fa 

dO 

04 

86 

02 

a2 

fc 

52 

21el : 

el 

85 

fa 

84 

fb 

a4 

e3 

85 

53 

ld29 : 

23 

15 

24 

80 

24 

b4 

24 

09 

7b 

lf89 

: 20 

b8 

lf 

20 

da 

cd 

a6 

02 

8c 

21e9 : 

fc 

84 

fd 

60 

a5 

eb 

85 

4l 

05 

ld31 : 

23 

26 

23 

2e 

23 

56 

23 

88 

78 

lf91 

: 60 

86 

02 

a2 

fa 

20 

a6 

lf 

93 

21fl : 

a5 

ec 

85 

42 

a5 

fi 

85 

43 

3c 

ld39 : 

22 

42 

25 

9a 

25 

96 

25 

88 

c6 

lf99 

: 4c 

f6 le 

86 

02 

a2 

fc 

20 

22 

21f9 : 

a5 

f3 

85 

44 

a2 

la 

20 

da 

b3 

ld4l : 

22 

8d 

23 

15 

24 

80 

24 

b4 

d6 

Ifal 

: a6 

lf 4c 

fd 

le 

48 

20 

b8 

cO 

2201 : 

cd 

29 

Of 

85 

45 

a2 

18 

20 

el 

ld49 : 

24 

Of 

23 

2a 

23 

34 

23 

60 

24 

lfa9 

: lf 

68 

20 

cc 

cd 

a2 

12 

a5 

23 

2209 : 

da 

cd 

85 

46 

60 

20 

79 

20 

21 

ld51 : 

23 

6a 

23 

50 

60 

70 

80 

90 

29 

lfbl 

: fb 

20 

cc 

cd 

a6 

02 

60 

8e 

c2 

2211 : 

18 

a6 

41 

a4 

42 

20 

fO 

ff 

4a 

ld59 : 

aO 

bO 

cO 

dO 

eO 

40 

bO 

ae 

cc 

lfb9 

: cc 

lf 

e8 

8e 

bl 

lf 

8e 

o5 

fb 

2219 : 

a5 

43 

29 

bf 

85 

fl 

a5 

44 

a9 

ld6l : 

ad 

bd 

ab 

b3 

bl 

b2 

cO 

dd 

bd 

lfcl 

: lf 

a2 

12 

a5 

fb 

20 

cc 

cd 

fa 

2221 : 

85 

f3 

a5 

45 

a2 

la 

20 

CC 

c7 

ld69 : 

a8 

aa 

a2 

a4 

a5 

a7 

a3 

a9 

ld 

lfc9 

: a2 

13 a5 

fa 

20 

cc 

cd 

a2 

a2 

2229 : 

cd 

a5 

46 

29 

40 

09 

20 

a2 

92 

ld71 : 

a6 

al 

a9 

a6 

aO 

36 

4c 

81 

17 

lfdl 

: lf 

60 a9 

01 

a2 

08 

aO 

Of 

b6 

2231 : 

18 

20 

cc 

cd 

a2 

00 

86 

dO 

2c 

ld79 : 

ld 

a9 

25 

aO 

37 

4c 

81 

ld 

de 

lfd9 

: 20 

ba 

ff 

a9 

00 

20 

bd 

ff 

83 

2239 : 

86 

f4 

86 

f5 

ca 

86 

f8 

a2 

a4 

ld81 : 

85 

09 
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Oberstes Gebot für jeden Programmierer sollte 
eine übersichtliche und gut strukturierte Gestal¬ 
tung seines Programms sein. Eine Vorausset¬ 
zung dafür ist die Erstellung eines Flußdia¬ 
gramms und dessen genaue Umsetzung in eine 
Programmiersprache. 

M it den beiden C128-Programmen im 80-Zeichen- 
Modus »Flowchart« und »Transformer« erstellen Sie 
komfortabel Flußdiagramme (oft auch als PAP = 
Programmablaufplan bezeichnet) und setzen diese in Ba¬ 
sic um. Bevor Sie ans Werk gehen, wollen wir Ihnen einige 
Grundlagen zu Flußdiagrammen näher bringen. Was sind 
Flußdiagramme und wofür werden sie verwendet? 

Bevor ein Computer-Programm entsteht, wird zuerst ei¬ 
ne Problemanalyse durchgeführt. Diese läuft meist in ver¬ 
baler Form, also ohne spezifische Computer-Ausdrücke 
ab. Sie sollten sich daher, bevor es an das eigentliche Pro¬ 
gramm geht, im klaren sein, welche Probleme bei der Lö- 

Flowdiart - der Editor 


sung der Aufgabe auf Sie zukommen. Anschließend erstel¬ 
len Sie ein Flußdiagramm, in dem bereits detaillierte Anga¬ 
ben zum Programm enthalten sind. »PAPs« sind grafische 
Darstellungen der Problemlösung als Vorbereitung für die 
Umsetzung in eine Programmiersprache. Sie beginnen am 
besten mit einem Grobentwurf, den Sie schrittweise verfei¬ 
nern. In der letzten und damit ausführlichsten Stufe sind die 
Einzelheiten so exakt angegeben, daß die Umsetzung in ei¬ 
ne Programmiersprache auch von Fremdprogrammierern 
vorgenommen werden kann. Gerade bei sehr langen Pro¬ 
grammen zeigt sich der Vorteil eines solchen Diagramms, 
da auch komplizierte Programmstrukturen auf einen Blick 
erkannt werden. Damit auch jeder sofort versteht, worum 
es sich bei einem Flußdiagramm handelt, sind alle Symbo¬ 
le, die verwendet werden, genormt. Diese Norm hat natür¬ 
lich eine Bezeichnung: DIN 66001. 

Auch das vorliegende Programmpaket verwendet diese 
Norm. Das Paket besteht aus zwei Teilen: Dem »Editor«, mit 
dem Sie Flußdiagramme erstellen, und dem »Transformer«, 
der aus allen erarbeiteten Diagrammen ein lauffähiges 
Basic-Listing erzeugt. Bevor Sie mit dem Paket arbeiten, 
geben Sie alle Listings (1 bis 4) mit dem MSE (Seite 158) 
ein. Anschließend sollten sich folgende Programme auf Ih¬ 
rer Diskette befinden: 

Flowchart 128 
Main 

Transformer 
Convert Seq-Prg 

Für einen reibungslosen Ablauf des Programms benöti¬ 
gen Sie noch ein fünftes Programm (FTast), das nur aus ei¬ 
ner Zeile besteht. Bringen Sie Ihren Computer in den Ein¬ 
schaltzustand und geben Sie folgende Basic-Zeile ein: 
1000 DL0AD "TRANSFORMER" <RETURN> 

Diesen Einzeiler speichern Sie dann folgendermaßen 
ab: 

DSAVE "FTAST" <RETURN> 

Die Anweisung in den spitzen Klammern bitte nicht mit- 
eingeben, sie soll Ihnen zeigen, mit welcher Taste Sie die 
Eingabe beenden. 

Alle Listings zum Programmpaket sind zwar in Basic ge¬ 
schrieben, wurden aber vom Autor des Programms mit eini¬ 
gen »Spielereien« versehen. Um Ihnen diesen Listingauf- 
bau näherzubringen, liegen die einzelnen Programmteile 
als MSE-Listing vor. Wenn Sie alle Teile auf Diskette gespei¬ 
chert haben, geben Sie ruhig einmal den LIST-Befehl ein, 



der Ihnen das Programm in etwas ungewöhnlicher Form 
auf den Bildschirm bringt. In diesem Zusammenhang wol¬ 
len wir auf unseren TEDMON-Kurs ab Seite 118 hinweisen, 
der unter anderem »Manipulationen« an Basic-Listings be¬ 
schreibt. 

Zur Eingabe eines Flußdiagramms benötigen Sie einen 
»Editor«. Dieser besteht aus zwei Files »Flowchart 128« (Li- 
sting 1) und »Main« (Listing 2), das automatisch nachgela¬ 
den wird. Starten Sie das Programm mit der Anweisung: 

RUN"FLOWCHART 128" 

Es erscheint der Arbeitsbildschirm mit einem großen 
Cursorfeld links oben sowie den Symbol- und Tastaturer¬ 
läuterungen auf der rechten Bildschirmseite (Bild 1). 

Sie können den überdimensionalen Cursor mit den übli¬ 
chen Tasten in alle Richtungen bewegen. Wird der obere 
beziehungsweise untere Bildschirmrand erreicht, so scrollt 
das Bild, sofern die allgemeinen Grenzen des editierbaren 
Feldes noch nicht erreicht sind. Maximal läßt sich durch 
den Editor ein Flußdiagramm von 100 Zeilen verwalten. 

Bei horizontalen Bewegungen bleibt der Eingabe-Cursor 
nach Erreichen des rechten Randes in der aktuellen Zeile, 
er springt lediglich an den linken zurück (und umgekehrt). 
Mit vC JRSOR abwärts> kommen Sie in die nächste Ein¬ 
gabezeile. 


LJ 

Eingabefeld 

( ) 

Programmanfang 


eine der 24 

Verbindungslinien 

Q 

Anfang einer FOR—NEXT—Schleife 

O 

Ende einer FOR-NEXT-Schleife 

|. —L. | 

Verarbeitungsfeld 

C~"~) 

Programmende 

O 5 

Entscheidungsfeld 


Bild 1a. Alle zur Berechnung verwendeten Symbole auf 
einen Blick 
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Ausgewählt werden die passenden Symbole mit < SPA¬ 
CE > oder der Zifferntaste <0>. Durch dauernden Druck 
auf diese Tasten können Sie die gesamte Symboltabelle 
durchforsten, bis Sie das richtige gefunden haben. Mit 
< SHIFT SPACE > läuft dieser Vorgang rückwärts ab. Die 
geSHIFTete O-Taste hat jedoch keine Wirkung. Eine Aufli¬ 
stung aller wichtigen Symbole finden Sie in Bild 2. 

Auf spezielle Tastaturfunktionen wollen wir hier näher 
eingehen. 

Folgende Tasten, gedrückt in Verbindung mit der CTRL- 
Taste, bieten diese Editiermöglichkeiten: 

<CTRL D> - Füllen einer Zeile mit Leersymbolen (kann 



Bild 2. Die Arbeitsfläche des Flowchart-Editors 

auch zum Löschen einer bereits eingegebenen Zeile ver¬ 
wendet werden). 

<CTRLC> - Kopieren eines benachbarten Feldes. Da Ih¬ 
nen hierbei aber vier Möglichkeiten offenstehen, wird noch 
ein zweites Zeichen als Eingabe verlangt: 

E : oberes Feld kopieren 
X: unteres Feld 
S : linkes Feld 
D : rechtes Feld 

<CTRL R> - Feld kommentieren 
Hier ist es sehr wichtig, entsprechende Kommentare ein¬ 
zutragen, da diese zum späteren Erstellen des Basic-Pro- 
gramms benötigt werden. Anstatt <CTRL R> kann auch 
der Punkt eingegeben werden. 

<CTRL G> - Fertiges Flußdiagramm von Diskette laden. 
Der Filename muß eingegeben werden. 

<CTRL P > - Flußdiagramm auf Disk speichern, auch hier 
ist ein Filename nötig. 

Wird beim Speichern kein Dateiname angegeben, so 
wählt das Programm den Namen »Flowchart.DTA«. 
<CTRL l> - Insert-Funktion, Einfügen einer Zeile. 
<CTRL E> - Erase (Eingabezeile löschen). 
cCTRL L> - Flußdiagramm ausdrucken. Die Druckerrou¬ 
tine ist an einen Epson FX-85 mit Görlitz-Interface ange¬ 
paßt. 


<CTRL W> - Drucken der Kommentare. 

<ESC> - Editor verlassen. Achtung: Es erfolgt keine Si¬ 
cherheitsabfrage. 

Nachfolgende Tasten des Zehnerblocks führen ihre 
Funktion ohne Drücken der CTRL-Taste aus und ermögli¬ 
chen Ihnen das Einfügen dieser Symbole ins Flußdia¬ 
gramm: 

<1 > - Ecke links unten 
<2> - Verbindung nach unten 
<3> - Ecke rechts unten 
<4> - Verbindung nach links 
<5> - Leersymbol 
<6> - Verbindung nach rechts 
<7> - Ecke links oben 
<8> - Verbindung nach oben 

< 9 > - Ecke rechts oben 

< + > - Verarbeitungssymbol 
<-> - Ausgabesymbol 

< ENTER > - Entscheidungsfeld 
<0> - wie <SPACE> 

<•> - wie <CTRL-R> 

Aus allen vorhandenen Symbolen, die von den Grafikzei¬ 
chen auf der Tastatur dargestellt werden, können Flußdia¬ 
gramme entwickelt werden. Wenn Sie Ihr Flußdiagramm 
fertiggestellt und hoffentlich auch gespeichert haben, ver¬ 
lassen Sie den Editor mit der ESC-Taste. Nun wird sofort der 
»Transformer« (Listing 3) nachgeladen. Folgende Symbole 
lassen sich nicht verarbeiten und dienen nur für demon¬ 
strative Zwecke: 

1. Alle Verbindungen, in denen zwei sich kreuzende Linien 
Vorkommen. 

2. Symbole für Unterprogramm-Aufrufe. 

3. Das Symbol für manuelle Verarbeitung. 

4. Dac Symbol für Verbindungsstellen. 

Falls der »Transformer« während des Übersetzungsvor¬ 
gangs auf so einen »Stolperstein« trifft, meldet er dies und 
markiert die Programmzeile, in der Fehler aufgetreten sind, 
setzt aber seine Arbeit fort. 

Mit dem »Transformer« wird aus Ihrem kommentierten 
Flußdiagramm ein lauffähiges Basic-Programm. Geben 
Sie dazu den Namen der mit < CTRL P > abgespeicherten 
Datei ein. Wenn der »Transformer« anschließend das Kon¬ 
vertierprogramm »Convert seq-prg« (Listing 4) und das ein¬ 
zeilige »FTast« nachlädt, werden Sie aufgefordert, eine be¬ 
liebige Taste zu drücken (»press any key to continue...«). 

Sie können auch den »Transformer« als separates Pro¬ 
gramm benutzen, wenn Sie zum Beispiel mehrere Flußdia¬ 
gramme »umwandeln« wollen. Starten Sie das Proqramm 
mit: 

RUN"TRANSFORMER" 


Kurzinfo: Flowchart 128 


Programmart: Editor zum Erstellen von Flußdiagrammen 
Laden: RUN "FLOWCHART 128" 

Start: Nach RUN automatisch 

Besonderheiten: Lädt beim Verlassen des Programms den »Trans¬ 
former. automatisch nach. Die Druckerroutine ist für Epson FX-85 
mit Görlitz-Interface vorgesehen. 

Programmautor: Thomas Lennartz 


Kurzinfo: Transformer 


Programmart: Zusatzprogramm zu Flowchart 
Laden: RUN "TRANSFORMER" 

Start: Nach RUN automatisch 
Besonderheiten: Wandelt alle mit »Flowchart« erstellten 
Flußdiagramme in lauffähige Basic-Listings um. 
Programmautor: Thomas Lennartz 
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LISTINGS 


0 


Eingabe im Unterprogramm 


Verarbeitung im Unterprogramm 


Manuelle Verarbeitung 


VerknOpfungspunkt mit anderer 
Routine 


besitzen, das heißt, in einem Symbol muß eine Pfeilspitze 
vorhanden sein, falls der logische Pfad durch das Dia¬ 
gramm nicht von oben nach unten oder von links nach 
rechts führt. 

2. Der Anfang eines Flußdiagramms muß in Zeile 1 stehen. 

3. Kommentare zu Feldern mit Leersymbolen werden nicht 
gespeichert. 

4. In einem Kommentar darf niemals ein < SHIFT G > Vor¬ 
kommen, da es sich dabei um ein vom Programm reservier¬ 
tes Zeichen handelt. 

5. In ein Eingabe- oder Verarbeitungsfeld muß der komplet¬ 
te Basic-Befehl eingegeben werden. Beispiel für ein Einga¬ 
befeld: 

INPUTP 

6. Kommentare im Anfangs- oder Endfeld bleiben beim 
»Transformieren« unbeachtet. 

7. In Entscheidungsfelder dürfen Sie auch nur die eigentli¬ 
che Entscheidung eintragen. Beispiel: 


Bild 1b. Diese Symbole werden bei der Umsetzung nicht 
berücksichtigt 


Hat der »Wandler« und das Konvertier-File seine Arbeit 
beendet, befindet sich das so erzeugte, ablauffähige Pro¬ 
gramm im Speicher des C128 und kann nun auf Diskette 
gespeichert werden. 

Falls Sie jedoch das Programm nicht ständig benötigen 
oder es sich noch in der Entwicklungsphase befindet, emp¬ 
fehlen wir, es nicht als Basic-Programm zu speichern, son¬ 
dern es sich bei Bedarf vom Programm »Convert seq-prg« 
direkt aus der Zwischendatei »B/(Filename)« erzeugen zu 


lassen. 

Bei der Erstellung von Flußdiagrammen sollten Sie noch 
folgendes beachten: 

1. Jede Verbindung muß eine korrekte Durchgangsrichtung 


I<24 

8. Der Kommentar zu einem oberen Schleifenbegren¬ 
zungssymbol kann den oberen Teil einer FOR-NEXT- 
Schleife oder den oberen Teil einer DO-Anweisung beinhal¬ 
ten. Beispiel: 

FOR 1=1 TO 10 

9. Falls zum unteren Schleifenbegrenzungssymbol kein 
Kommentar vorhanden ist, wird hier vom Programm 
»NEXT« eingesetzt. 

10. Kommentare zu Verbindungen bleiben ohne Wirkung. 
Mit dem Programmpaket lassen sich nun einfach und be¬ 
quem Basic-Listings durch einen Entwurf des dazugehöri¬ 
gen Flußdiagramms erzeugen. Mit etwas Übung und Ge¬ 
duld werden Sie bald längere Programme erstellen und die 
Vorzüge des Flußdiagramms schätzen. 

(Thomas Lennartz/Harald Beiler/ag) 
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7f 

79 

c7 

77al 

: 53 

50 

41 

4c 54 

45 

25 

29 

4d 

7869 

: b2 

20 

34 

00 

75 

78 

6a 

22 

4l 

7931 

: a6 

22 

3a 

3a 

3a 3a 

3a 

3a 

91 

77a9 

: 20 

b2 

20 

33 00 

b6 

77 

38 

95 

7871 

: 3a 

fe 

19 

00 

c5 

78 

74 

22 

a7 

7939 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

39 

77b 1 

: 22 

3a 

fe 

19 00 

06 

78 

42 

6a 

7879 

: 3a 

3a 

3a 

3 a 

3a 

3a 

3a 

3a 

79 

7941 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

41 

77b9 

: 22 

3a 

3a 

3a 3a 

3a 

3a 

3a 

al 

7881 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

81 

7949 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

49 

77el 

: 3a 

3a 

3a 

3a 3a 

3a 

3a 

3a 

cl 

7889 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

89 

7951 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

51 

77c9 

: 3a 

3a 

3a 

3a 3a 

3a 

3a 

3a 

c9 

7891 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

91 

7959 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

59 

77dl 

: 3a 

3a 

3a 

3a 3a 

3a 

3a 

3a 

dl 

7899 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

99 

7961 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

61 

77d9 

: 3a 

3a 

3a 

3a 3a 

3a 

3a 

3a 

d9 

78al 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

al 

7969 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

69 

77el 

: 3a 

3a 

3a 

3a. 3a 

3a 

3a 

3a 

el 

78a9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

a9 

7971 

: 3a 

3a 

3a 

3a 

3a 3a 

3a 

3a 

71 

77e9 

: 3a 

3a 

3a 

3a 3a 

3a 

3a 

3a 

e9 

78b 1 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

bl 

7979 

: 3a 

3a 

3a 

3a 

3a 00 

35 

79 

53 

77fl 

: 3a 

3a 

3a 

3a 3a 

3a 

3a 

3a 

fl 

78b9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

b9 

7981 

: bO 

22 

3a 

00 

c5 79 

ba 

22 

28 

77f9 

: 3a 

3a 

3a 

3a 3a 

3a 

3a 

3a 

f9 

78cl 

: 3a 

3a 

3a 

00 

cb 

78 

7e 

22 

66 

7989 

: 3a 

8b 

20 

54 

41 53 

54 

45 

a6 

7801 

: 3a 

3a 

3a 

3a 00 

0c 

78 

4c 

09 

78c9 

: 3a 

00 

04 

79 

88 

22 

3a 

8b 

cd 

7991 

: 24 

20 

b2 

20 

22 Ob 

22 

20 

b9 

7809 

: 22 

3a 

00 

4a 78 

56 

22 

3a 

c9 

78dl 

: 20 

54 

41 

53 

54 

45 

24 

20 

16 

7999 

: a7 

20 

8a 

20 

20 20 

20 

20 

bb 

7811 

: 8b 

20 

54 

41 53 

54 

^5 

24 

lf 

78d9 

: b2 

20 

c7 

28 

31 

33 

29 

20 

24 

79al 

: 20 

20 

20 

20 

20 20 

20 

20 

al 

7819 

: 20 

b2 

20 

22 2d 

22 

20 

a7 

92 

78el 

: a7 

20 

fe 

18 

20 

20 

20 

20 

lf 

79a9 

: 20 

20 

20 

20 

20 20 

20 

20 

a9 

7821 

: 20 

fe 

18 

20 20 

20 

20 

20 

8e 

78e9 

: 20 

20 

20 

20 

20 

20 

20 

20 

e9 

79b 1 

: 20 

20 

20 

20 

20 3a 

ac 

22 

b8 

7829 

: 20 

20 

20 

20 20 

20 

20 

20 

29 

78fl 

: 20 

20 

20 

20 

20 

20 

20 

3a 

25 

79b9 

: Ob 

22 

20 

b2 

20 9a 

52 

4f 

f2 

7831 

: 20 

20 

20 

20 20 

20 

20 

20 

31 

78f9 

: ac 

c7 

28 

31 

33 

29 

20 

b2 

lb 

79cl 

: 4c 

ab 

4b 

00 

cc 79 

c4 

22 

a6 

7839 

: 20 

20 

20 

3a ac 

22 

2d 

22 

8e 

7901 

: 20 

8e 

00 

27 

79 

92 

22 

3a 

76 

79c9 

: 3a 

8e 

00 

00 

00 00 

00 

00 

4b 

7841 

: 20 

b2 

20 

4d 49 

4e 

55 

53 

6f 

7909 

: 20 

20 

46 

45 

4c 

44 

25 

28 

3f 










7849 

: 00 

6d 

78 

60 22 

3a 

20 

20 

df 

7911 

: 46 

5a 

45 

49 

4c 

45 

25 

2c 

db 










7851 

: 46 

45 

4c 

44 25 

28 

46 

5a 

37 

7919 

: 46 

53 

50 

41 

4c 

54 

45 

25 

0c 

Listing 2. 

(Schluß) 






Name : transformer leOl 40dl 


IcOl : 

20 

lc 

e9 

03 

3a 

8f 

22 

14 

db 

lc09 : 

: 14 

14 

14 

50 

52 

4f 

47 

52 

98 

lcll : 

41 

4d 

20 

44 

45 

53 

43 

52 

2a 

lel9 : 

: 49 

50 

54 

49 

4f 

4e 

00 

48 

cl 

lc21 : 

lc 

ea 

03 

3a 

4e 

41 

4d 

45 

69 

lc29 : 

20 

20 

20 

20 

20 

20 

20 

24 

31 

lc31 : 

: b2 

22 

14 

14 

14 

3a 

20 

20 

50 

lc39 : 

20 

20 

20 

54 

52 

41 

4e 

53 

Ob 

lc4l : 

: 46 

4f 

52 

4d 

45 

52 

00 

74 

3d 

lc49 : 

: lc 

eb 

03 

3a 

57 

52 

49 

54 

39 

lc51 : 

: 54 

45 

4e 

20 

42 

59 

20 

24 

97 

lc59 : 

; b2 

22 

14 

14 

14 

3a 

20 

20 

78 

lc6l : 

: 20 

20 

20 

54 

48 

4f 

4d 

4l 

db 

lc69 : 

: 53 

20 

4c 

45 

4e 

4e 

41 

52 

89 

lc71 : 

: 54 

5a 

00 

9c 

lc 

ed 

03 

3a 

38 

lc79 : 

: 4d 

4l 

43 

48 

49 

4e 

45 

20 

9d 

lc81 : 

: 20 

20 

20 

24 

b2 

22 

14 

14 

f3 

lc89 : 

: 14 

3a 

20 

20 

20 

20 

20 

43 

dl 

lc91 : 

: 31 

32 

38 

20 

2f 

20 

31 

35 

11 

lc99 : 

: 37 

31 

00 

e9 

lc 

ee 

03 

3a 

60 

lcal : 

: 43 

4f 

4d 

4d 

45 

4e 

54 

20 

el 

lca9 : 

: 20 

20 

20 

24 

b2 

22 

14 

14 

lb 

lcbl : 

: 14 

3a 

20 

20 

20 

20 

20 

45 

fd 

lcb9 : 

: 52 

5a 

45 

55 

47 

54 

20 

42 

50 

lccl : 

: 4l 

53 

49 

43 

2d 

50 

52 

4f 

a4 

lcc9 : 

: 47 

52 

41 

4d 

4d 

20 

41 

55 

b9 

lcdl : 

: 53 

20 

27 

46 

4c 

4f 

57 

43 

ea 

lcd9 : 

: 48 

4l 

52 

54 

20 

31 

32 

38 

a6 

lcel : 

: 27 

2d 

44 

4l 

54 

45 

49 

00 

6d 

lce9 

: 39 

ld 

ef 

03 

3a 

3a 

3a 

3a 

eO 

lcfl 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

fl 

lcf9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

f9 

IdOl 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

01 

ld09 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

09 

ldll 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

11 

ldl9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

19 

ld21 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

21 

ld29 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

29 

ld31 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

00 

bd 

ld39 

: 89 

ld 

fO 

03 

3a 

46 

41 

54 

71 

ld4l 

: 41 

4c 

20 

4d 

49 

53 

54 

4l 

5d 

ld49 

: 4b 

45 

53 

20 

b2 

20 

30 

30 

5d 

ld51 

: 30 

20 

20 

20 

3a 

4f 

54 

48 

9d 

ld59 

: 45 

52 

20 

4d 

49 

53 

54 

41 

7c 


ld6l 

: 4b 

45 

53 

20 

b2 

20 

30 

30 

75 

ld69 

: 30 

20 

20 

3a 

41 

4c 

4c 

20 

el 

ld71 

: 4d 

49 

53 

54 

4l 

4b 

45 

53 

ec 

ld79 

: 20 

b2 

20 

30 

30 

30 

20 

20 

46 

ld81 

: 20 

20 

20 

20 

20 

3a 

3a 

00 

7a 

ld89 

: d9 

ld 

fl 

03 

3a 

4c 

4l 

53 

7f 

ld91 

: 54 

20 

4c 

49 

4e 

45 

20 

20 

01 

ld99 

: 20 

20 

20 

20 

b2 

20 

30 

31 

25 

ldal 

lda9 

: ;32 38 
: 53 54 

3.8 20 3a 4^ 
20 55 4e 45 

'9 

58 

52 

45 

al 

d4 

ldbl 

: 43 

55 

54 

41 

42 

4c 

45 

20 

b8 

ldb9 

: 4c 

49 

4e 

45 

20 

b2 

20 

30 

5f 

ldcl 

: 30 

30 

30 

30 

20 

20 

20 

20 

df 

ldc9 

: 20 

20 

20 

20 

20 

20 

20 

20 

c9 

lddl 

: 20 

20 

20 

20 

20 

3a 

3a 

00 

ca 

ldd9 

: 29 

le 

f2 

03 

3a 

3a 

3a 

3a 

01 

ldel 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

el 

lde9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

e9 

ldfl 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

fl 

ldf9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

f9 

leOl 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

01 

le09 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

09 

lell 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

11 

lel9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

19 

le21 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

00 

ad 

le29 

: 6f 

le 

f3 

03 

3a 

8b 

20 

46 

12 

le31 

: 41 

54 

41 

4c 

20 

4d 

49 

53 

ae 

le39 

: 54 

41 

4b 

45 

53 

20 

bl 

20 

e7 

le4l 

: 30 

20 

a7 

20 

99 

20 

22 

43 

19 

le49 

: 4l 

4e 

4e 

4f 

54 

20 

45 

58 

3b 

le51 

: 45 

43 

55 

54 

45 

20 

45 

52 

27 

le59 

: 52 

4f 

52 

2d 

46 

52 

45 

45 

24 

le61 

: 21 

22 

20 

3a 

20 

80 

20 

20 

aa 

le69 

: 20 

20 

20 

3a 

3a 

00 

bf 

le 

c8 

le71 

: f4 

03 

3a 

3a 

3a 

3a 

3a 

3a 

90 

le79 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

79 

le 81 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

81 

le89 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

89 

le91 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

91 

le99 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

99 

leal 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

al 

lea9 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

a9 

lebl 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

bl 

leb9 

: 3a 

3a 

3a 

3a 

3a 

00 

Of 

lf 

04 

lecl 

: f5 

03 

3a 

4e 

4f 

20 

b2 

20 

91 

lec9 

: 30 

20 

3a 

59 

45 

53 

20 

b2 

98 


ledl : 

20 

ab 

31 

20 

3a 

54 

45 

53 

19 

led9 : 

54 

20 

b2 

20 

4e 

4f 

20 

20 

Oe 

leel : 

20 

20 

20 

20 

20 

20 

20 

20 

el 

lee9 : 

20 

20 

20 

20 

20 

20 

20 

20 

e9 

lefl : 

20 

20 

20 

20 

20 

20 

20 

20 

fl 

lef9 : 

20 

20 

20 

20 

20 

20 

20 

20 

f9 

lfOl : 

20 

20 

20 

20 

20 

20 

20 

20 

01 

lf09 : 

20 

20 

20 

3a 

3a 

00 

56 

lf 

c4 

lfll : 

f6 

03 

3a 

8b 

20 

41 

4c 

4e 

'5f 

lfl9 : 

20 

4d 

49 

53 

54 

41 

4b 

45 

a4 

lf21 : 

53 

20 

bl 

20 

30 

20 

bO 

20 

fc 

lf29 : 

54 

45 

53 

54 

20 

b2 

20 

59 

4a 

lf31 : 

45 

53 

20 

a7 

20 

99 

20 

22 

bO 

lf39 : 

54 

45 

53 

54 

20 

4d 

4f 

44 

cl 

lf4l : 

45 

21 

22 

20 

3a 

54 

45 

53 

a5 

lf49 : 

54 

20 

b2 

20 

59 

45 

53 

20 

ab 

lf51 : 

20 

20 

3a 

3a 

00 

a6 

lf 

f7 

f9 

lf59 : 

: 03 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

22 

lf6l : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

61 

lf69 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

69 

lf71 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

71 

lf79 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

79 

lf81 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

81 

lf89 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

89 

lf91 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

91 

lf99 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

99 

lfal : 

: 3a 

3a 

3a 

3a 

00 

ee 

lf 

f8 

b4 

lfa9 : 

: 03 

3a 

99 

20 

22 

50 

52 

45 

ac 

lfbl : 

: 53 

53 

20 

41 

4e 

59 

20 

4b 

a5 

lfb9 : 

: 45 

59 

20 

54 

4f 

20 

43 

4f 

df 

lfcl : 

: 4d 

4d 

45 

4e 

43 

45 

2e 

2e 

43 

lfc9 : 

: 2e 

22 

20 

3a 

al 

f9 

20 

41 

45 

lfdl : 

: 4e 

53 

57 

45 

52 

24 

20 

20 

4e 

lfd9 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

d9 

lfel : 

: 20 

20 

20 

20 

20 

20 

20 

20 

el 

lfe9 : 

: 20 

20 

3a 

3a 

00 

3e 

20 

f9 

56 

lffl : 

: 03 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

ba 

lff9 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

f9 

2001 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

01 

2009 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

09 

2011 : 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

11 


Listing 3. »Transformer« wandelt 
Flußdiagramme in Basic-Listings. 
Bitte mit dem MSE (Seite 158) 
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LISTINGS 


2019 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

19 

2269 

: 20 

20 

20 

20 

20 

20 

20 20 

69 

24b9 : 

31 

20 

a4 

20 

31 

35 00 

e3 

ac 

2021 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

21 

2271 

: 20 

20 

20 

20 

20 

20 

3a ac 

f3 

24cl : 

24 

28 

04 

3a 

20 

20 20 

8b 

de 

2029 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

29 

2279 

: 44 

41 

54 

45 

49 

20 

4f 45 

79 

24c9 : 

20 

46 

45 

4c 

44 

25 28 

31 

58 

2031 

: 3a 

3a 

3a 

3a 

3a 

3a 

3a 

3a 

31 

2281 

: 46 

a5 

45 

4e 

00 

9a 

22 Od 

2c 

24dl : 

2c 

53 

50 

41 

4c 

54 45 

29 

b2 

2039 

: 3a 

3a 

3a 

3a 

00 

58 

20 

fa 

9f 

2289 

: 04 

3a 

8b 

20 

44 

53 

20 b2 

56 

24d9 : 

20 

b2 

20 

31 

20 

a7 20 

fe 

3e 

2041 

: 03 

3a 

8f 

22 

14 

14 

14 

14 

e4 

2291 

: 20 

36 

32 

20 

a7 

20 

fe 18 

05 

24el : 

18 

00 

fe 

24 

29 

04 3a 

20 

19 

2049 

: 49 

4e 

49 

54 

49 

41 

4c 

49 

f9 

2299 

: 00 

bb 

22 

Oe 

04 

3a 
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Listing 4. 

»Convert Seq-Prg« wird 

lf79 
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3a 

3a 

3a 

3a 

3a 

3a 

3a 
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: 00 
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4f 
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von ■■Transformer« nachgeladen. 
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Bitte mit dem MSE (Seite 158) 
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Es gibt viele Zeichen- und Malprogramme für den 
C128. Nur sind die meisten für den 40-Zeichen- 
Bildschirm gedacht. Mit »Gredi« erhalten Sie ein 
Zeichenprogramm, das den 80-Zeichen-Modus 
voll nutzt. 

I n dem Zeichenprogramm ist eine Vielzahl von Funktio¬ 
nen eingebaut, die Ihre eigene Kreativität voll unterstüt¬ 
zen. So lassen sich bequem viele Manipulationen an 
Bildteilen, wie zum Beispiel Spiegeln und Strecken, durch¬ 
führen. Bis zu 16 Pinsel und 20 Füllmuster können definiert 
und gespeichert werden. Mit einen komfortablen Text- 
Editor beschriften Sie dann Ihr fertiggestelltes Werk. »Gre¬ 
di«, der Name kommt von G Raf ikEDItor, verwaltet zwei Bild¬ 
schirme und Gesamtgrafiken von 640 x 400 Punkten. Dabei 
werden immer 640 x 200 Punkte auf einem der zur Verfü¬ 
gung stehenden Bildschirme dargestellt. Zusätzlich lassen 


chert, können Sie mit 
RUN"GREDI.V3" <RETURN> 
das Programm laden und 
starten. 

In der Mitte des Bild¬ 
schirms befindet sich nun 
der Cursor, ein Pfeil, der in 
die linke obere Ecke zeigt. 
Die Spitze des Pfeils zeigt 
immer auf die aktuelle X- 
und Y-Position. Gesteuert 
wird der Pfeil mit einem Joy¬ 
stick in Port 2 oder mit den 
grauen Cursortasten am 
oberen Rand des C128. Mit 
dem Joystick ist auch eine 
diagonale Steuerung des 
Cursors möglich (Rich¬ 


tungsangaben werden im 
folgenden mit UP/DOWN/ 

LEFT/RIGHT angegeben). 

Durch Druck auf den Feu¬ 
erknopf oder die RE- 
TURN-Taste wird die gera¬ 
de angewählte Funktion ausgeführt (im folgenden 
<SET> genannt). 

Nach dem Start des Programmes kann es Vorkommen, 
daß der Bildschirm »Datenmüll« anzeigt. Sollte dies der Fall 
sein, so löschen Sie den Bildschirm, bevor Sie mit dem 
Zeichnen beginnen. 

»Gredi« überzeugt durch seine vielfältigen Editorfunktio¬ 
nen, auf die wir nun näher eingehen wollen. Eine Kurzüber¬ 
sicht aller Befehle finden Sie in Tabelle 1. 

Clear: <CBM CLR/HOME> 


sich mit Printfox erstellte Grafiken in »Gredi« verwenden. 
Da das Programm keine speziellen Floppyroutinen be¬ 
nutzt, können sowohl die 1541-als auch die 1570/1571-Lauf- 
werke angesteuert werden. Alle Funktionen rufen Sie mit 
logischen Buchstaben auf und können mit der RUN/STOP- 
Taste abgebrochen werden. Das Programm besteht aus 
drei Teilen: »Gredi.V3«, »Gredi.Obj« und »Gredi.Com«. »Gre- 
di.V3« (Listing 1) ist ein Basic-Programm (bitte mit dem 
Checksummer auf Seite 158 eingeben). Dieser Lader holt 
die anderen beiden Programme, »Gredi.Obj« (Listing 2) und 
»Gredi.Com« (Listing 3), die 
mit dem MSE (Seite 158) 
eingegeben werden, in den 
Speicher Ihres Computers. 

Wurden alle Programm¬ 
teile auf Diskette gespei- 
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Colors: <C> 

Erlaubt das Einstellen der Bildschirmfarben. Zuerst 
drücken Sie die C-Taste. Anschließend können Sie mit der 
Taste <H> die Hintergrundfarbe und mit der Taste <V> 
die Vordergrundfarbe verändern. Mit <SET> wird CO¬ 
LORS wieder verlassen. 

Speed 1: <CBM + > 

Wem die voreingestellte Cursor-Geschwindigkeit zu 
langsam erscheint, kann durch gleichzeitiges Drücken von 
<CBM> und < + > den Cursor »beschleunigen«. 
Speed 2: <CBM -> ' 

Die Geschwindigkeit des Cursors wird verringert 
Step 1: < + > 

Stellt die Schrittweite des Cursors auf 8 Pixel für die 
X-Richtung und 4 Pixel für die Y-Richtung. 

Step 2: <-> 

Stellt die Schrittweite des Cursors auf 1 Pixel für die 
X- und Y-Richtung. 

Plot ein: <£> 

Hier zeichnen Sie mit der 
Vordergrundfarbe, 


Cn 


n 

r \ 

TT| 




Der sichtbare Bildschirm wird 
gelöscht. 

Home: <CLR/HOME> 

Der Cursor wandert in die linke 
obere Ecke. 

Hornel: <SHIFTCLR/HOME> 
Der Cursor befindet sich nun in 
der rechten unteren Ecke. 

Bild 1: <1> 

Mit der Zahlentaste <1 > (nicht 
Zehnerblock) schalten Sie in den 
ersten Bildschirm, der die obere 
Hälfte der Gesamtgrafik darstellt. 
Bild 2: <2> 

Die Taste <2> auf der norma¬ 
len Tastatur zeigt den zweiten Bildschirm und die untere 
Hälfte der Gesamtgrafik. 

Invers: <l> 

Der momentan sichtbare Bildschirminhalt wird invertiert. 
Wenn Sie ein Gesamtbild invertieren wollen, so müssen 
beide Bildschirme angewählt und umgewandelt werden. 
Undo: <U> 

Nach Anwahl mit der U-Taste wird die zuletzt ausgeführte 
Funktion rückgängig gemacht. 


dient auch 
zum Setzen von Punkten. 

Plot aus: <SHIFT £> 

Nach Anwahl dieser Funktion wird mit der Hintergrund¬ 
farbe gezeichnet, das bedeutet, daß Sie Punkte löschen 
können. 

Pinsel ein:<P> 

Bc: c'len Zeichenfunktionen (Plot, Linie, Kreis etc.) zeich¬ 
nen Sie mit dem aktuellen Pinsel, den Sie vorher auswäh¬ 
len müssen (siehe sonstige Funktionen). Das Pinselmuster 
wird im Abstand von »Step« gesetzt. 

Pinsel aus: <SHIFT P> 

Bei allen Zeichenfunktionen wird zukünftig ohne Pinsel 
gezeichnet (normales Zeichnen). 

Rays ein: < * > 

»Rays« hat verschiedene Wirkungen auf die einzelnen 
Funktionen, diese werden an entsprechender Stelle näher 
erläutert. 

Rays aus: <SHIFT *> 

Die Rays-Funktion wird deaktiviert. 

Das waren nun alle Editor- 
Funktionen, die Sie sich mer¬ 
ken sollten, bevor wir zu den 
einzelnen Zeichenfunktionen 
kommen. 

Nachdem Sie die einzelnen 
Editorfunktionen von »Gredi« 
kennengelernt haben, wollen 
wir uns an die ersten Zeichnun¬ 
gen wagen. 

Draw: <D> 

Mit der D-Taste stellen Sie die Freihandzeichnen-Funk¬ 
tion ein. Bewegen Sie den Pfeil mit dem Joystick oder den 
grauen Cursortasten über den Bildschirm. Mit <SET> 
(RETURN-Taste oder Feuerknopf) setzen Sie einen Punkt 
(bei »Plot ein«) oder löschen diesen (bei »Plot aus«). Ist 
gleichzeitig die »Pinsel ein«-Funktion aktiviert, wird das ak¬ 
tuelle Pinselmuster gesetzt oder gelöscht (bei »Pinsel 
aus«). 

Spray: <S> 

Nach <SET> werden im Umkreis der X/Y-Position zu¬ 
fällige Punkte gesetzt beziehungsweise gelöscht, je nach¬ 
dem welche Editor-Funktion Sie eingestellt haben. Dabei 
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sprüht das Programm immer nach dem aktuellen Fillmu- 
ster (nur wenn im Füllmuster ein Punkt gesetzt ist, kann 
auch bei »Spray« ein Punkt gesetzt werden). Wie Sie Fill- 
muster erstellen können, lesen Sie im Punkt »sonstige 
Funktionen«. Mit den Tasten <SHIFT + > und <SHIFT-> 
stellen Sie die Größe der Sprühdose ein (minimal 6 x 3 Pi¬ 
xel, maximal 64 x 32 Pixel). 

Flll: <F> 

Eine beliebig geformte, geschlossene Fläche füllt sich 
nach < SET> mit dem aktuellen Fillmuster. Mit der STOP- 
Taste brechen Sie den Füllvorgang jederzeit ab. »Plot aus« 
hat hier keine Wirkung, es werden immer Punkte gesetzt. 
Linien: <L> 

Statt dem Cursorpfeil ist nur noch ein kleiner Punkt zu se¬ 
hen. Diesen können Sie jetzt wie ein Gummiband in die 
Länge ziehen und punktgenau auf dem Bildschirm plazie¬ 
ren. Erst nach < SET> wird die Linie fest in die Grafik ein¬ 
gefügt. Vom Ende dieser Linie läßt sich eine weitere Linie 
setzen. Dieser Vorgang läßt sich beliebig fortsetzen, bis 
man die Linien-Funktion mit der STOP-Taste verläßt. Wurde 
»Rays ein« gewählt, lassen sich mit »Linien« Strahlen zeich¬ 
nen. Bei »Pinsel ein« werden die Linien mit dem aktuellen 
Pinsel erzeugt. 

Bei »Linien« und den meisten anderen Funktionen sind 
auch die Tasten für »Rays ein/aus«, »Plot ein/aus«, »Speed 
+/-«, »Step +/-« und »Pinsel ein/aus« aktiv. 

Rechtecke: <R> 

Ähnlich wie bei »Linien« beschrieben, lassen sich hier 
Rechtecke auf dem Bildschirm plazieren und setzen. Die 
»Rays ein«-Funktion setzt die Rechtecke immer vom glei¬ 
chen Startpunkt aus. 

Vielecke: <V> 

Zunächst erwartet »GREDI V3« eine weitere Tastaturein¬ 
gabe. Erlaubt sind die Tasten <2> bis <9> der Zehnerta¬ 
statur, sowie die ENTER-Taste. Mit < ENTER > können Sie 
die Vielecke-Funktion wieder verlassen. Ansonsten be¬ 
stimmen Sie mit den Zifferntasten die Anzahl der Ecken des 
Vielecks. Dabei steht die <2> für ein Dreieck (Ausgang¬ 
spunkt und zwei Ecken), die <3> für ein Viereck etc. 

Auf dem Bildschirm erscheint nun ein flackernder Strich, 
dieser zeigt immer die aktuelle Ecke an. Diese kann nun in 
jede beliebige Länge und Richtung gezogen werden. Mit 
den Zifferntasten der Zehnertastatur ist ein Wechseln der 
Ecke möglich, wobei die <0> für die erste Ecke, die <1 > 
für die zweite Ecke etc. steht. Wurde durch Bewegen einer 
Ecke nicht das gewünschte Ergebnis erzielt, kann diese mit 
< ENTER > wieder an die Position gesetzt werden, an der 
sie sich befand, bevor sie angewählt wurde. <SET> setzt 
oder löscht das Vieleck. Ist »Rays ein« aktiviert, bleiben 
nach <SET> die Eckkoordinaten erhalten. <STOP> ver¬ 
läßt »Vielecke«. 

Kreise: <K> 

Auf dem Bildschirm erscheint ein Kreis, der mit 
cCURSOR aufwärts> und <CURSOR abwärts> in die 
gewünschte Größe gebracht und mit < SET> in die Grafik 
eingefügt werden kann. So lassen sich nun beliebig viele 
Kreise ziehen. Die Cursortasten unten rechts (nicht Son¬ 
derblock) verändern die Position des Kreises am Bild- 


Kurzinfo: GREDI V3 


Programmart: Zeichenprogramm für den 80-Zeichen-Modus 
Laden: RUN "GREDI V3" 

Start: Nach RUN automatisch 

Besonderheiten: Umfangreiche Funktionen, die mit logischen 
Buchstaben aufgerufen werden. Verwaltung von zwei Bildschirmen 
mit insgesamt 640 x 400 Punkten. Steuerung über Tastatur und 
Joystick. Hardcopy-Routine für den STAR NG-10. 

Programmautor: Arno Pichler 


schirm. »Rays ein« bewirkt hier nichts. Die STOP-Taste 
beendet das Kreiseziehen. 

Ellipsen: <E> 

Wie bei »Kreise« beschrieben, nur daß hier auch 
<CURSORIinks> und < CURSOR rechts> die Form des 
Ovals verändern. 

Kreis-Kuchenstücke: <SHIFTK> 

Ähnlich der Kreise-Funktion. Auch hier wird zuerst die 
Größe des Kreises eingestellt. Nach < SET> stellt »Gredi« 
nur noch ein Teil des Kreises als Fläche dar. Mit 
< CURSOR aufwärts > und < CURSOR abwärts > wird 
dieses »Kuchenstück« vergrößert beziehungsweise verklei¬ 
nert. cCURSOR links> und cCURSOR rechts> dreht 
das Kuchenstück in die jeweilige Richtung. cSET> wie¬ 
derum zeichnet dann das Kuchenstück. Mit den Cursorta¬ 
sten rechts unten können auch diese Kuchenstücke über 
den Bildschirm bewegt werden. Mit cSTOP> verlassen 
Sie diesen Modus. 

Ellipsen-Kuchenstücke: cSHIFTE> 

Wie »Kreis-Kuchenstücke«, nur daß hier zuvor die Größe 
und Form der Ellipse eingestellt wird. 

Kreisbögen: cSH!FTB> 


Taste 

Funktion 

EDITOR-FUNKTIONEN 

Graue Cursortasten 

Steuerung des Cursorpfeils etc. 

Joystick Port 2 

Steuerung des Cursorpfeils etc. 

RETURN/Feuerknopf 

Funktion ausführen 

+ 

STEP+ (8/4 Pixel X-und Y-Richtung) 

- 

STEP- (1 Pixel X- und Y-Richtung) 

Commodore + 

Cursorgeschwindigkeit erhöhen 

Commodore - 

Cursorgeschwindigkeit erniedrigen 

* 

RAYS aktivieren 

SHIFT • 

RAYS deaktivieren 

PFUND T4STE 

SHIFT PrUND-TASTE 

PON (Punkte werden gesetzt) 

POFF (Punkte werden gelöscht) 

P 

PINSEL ein 

SHIFT P 

PINSEL aus 

U 

UNDO 

1 

Bildschirm 1 anzeigen 

2 

Bildschirm 2 anzeigen 

PFEIL HOCH 

Grafik scrollen (mit UP und DOWN) 

HOME 

Cursor in linke obere Ecke setzen 

SHIFT HOME 

Cursor in rechte untere Ecke setzen 

Commodore HOME 

Bildschirm löschen 

1 

Bildschirm invertieren 

C 

Farben einstellen 
(V=Vorder, H=Hi ntergru nd) 

w 

Gesamtübersicht aufbauen 
mit »Auto-UNDO- 

SHIFT W 

Gesamtübersicht ohne UNDO 

Zeichenfunktionen 

D 

DRAW (Freihandzeichnen) 

S 

SPRAY 

F 

FILL 

L 

Linien zeichnen 

R 

Rechtecke zeichnen 

V 

Vielecke zeichnen 

K 

Kreise 

E 

Ellipsen 

SHIFT K 

Kuchenstücke (Kreis) 

SHIFT E 

Kuchenstücke (Elipse) 

B 

Ellipsenbögen 

SHIFT B 

Kreisbögen 

Funktionen zum Zeichnen über Gesamtgrafik 

Commodore L 

BLINE 

Commodore K 

BKREIS 

Commodore E 

BELIPSE 

Commodore R 

BRECHTECK 

(Mit <1> und <2> Bildschirmhälften betrachten, mit <U> neuer 

Versuch, mit <RETURN> weitere Linien zeichnen, mit <STOP> 
beenden) 


Tabelle 1. Die Gesamtübersicht aller Funktionen von GREDI: 
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Ebenfalls wie die beiden vorhergehenden Funktionen, 
allerdings werden hier Kreisbögen erzeugt. 

Ellipsenbögen : <B> 

Wie bei »Ellipsen-Kuchenstücke« beschrieben, nur daß 
Ellipsenbögen erzeugt werden. 

Die folgenden Funktionen dienen zum Zeichnen auf der 
Gesamtgrafik. Nach der Aktivierung des jeweiligen Befehls 
wird zunächst eine Übersicht des Gesamtbildes in der lin¬ 
ken Bildschirmhälfte aufgebaut. In der Mitte dieser Über¬ 
sicht erscheint dann der Cursorpfeil und kann innerhalb 
des begrenzten Bereichs plaziert werden. <STOP> führt 
Sie wieder zurück zur normalen Darstellung. Nach 
< SET> läßt sich die Größe des Kreises, des Rechtecks, 
etc. wie gewohnt einstellen. Ein erneutes <SET> zeichnet 
dann den Kreis in die Gesamtgrafik, was beim Zeichnen mit 
Pinseln schon mal etwas dauern kann. Im Anschluß daran 
wird die obere Hälfte des Gesamtbereichs in Originalgröße 
dargestellt. Mit den Tasten <1 > und <2> kann auf die 
obere beziehungsweise untere Hälfte gewechselt werden. 
Sind Sie nicht zufrieden mit dem, was Sie gezeichntet ha¬ 
ben, dann drücken Sie bitte die UNDO-Taste < U >, die den 
letzten Vorgang rückgängig macht und die Übersicht wie- 



Flächenbefehle 

G 

Bildschirmbereich als SHAPE definieren 

SHIFTS 

SHAPE 1 

Commodore S 

Ohne SHIFT: SHAPE über Bildschirm be¬ 
wegen. 

Mit SHIFT: SHAPE vergrößern oder verklei¬ 
nern. 

SHAPE 2. 

SHIFTC 

Ohne SHIFT: SHAPE spiegeln. 

Mit SHIFT: SHAPE scrollen. (E=Einfügen, 
K=Kleben, Mnvertieren) 
schnelles SHAPE kopieren 

SHIFT PFEIL HOCH 

(ORA,AND,EOR,STAMP) 

Gesamter Bildschirm als SHAPE 

Funktionen für RAM-Module 1700/1750 

Fl 

Grafik retten, gewählte Grafik holen und 

F3 

anzeigen. 

Grafik nicht retten, gewählte Grafik holen 

F5 

und anzeigen. 

Grafik nicht retten, gewählte Grafik holen, 

F7 

aber nicht anzeigen. 

Grafik unter gewählter Nummer auf RAM 

sichern. 

Durch ENTER wird Funktion nicht ausgeführt. 

Sonstiges 

Z 

ZOOM 

SHIFT F 

Fillmuster auswählen 

SHIFT D 

Pinsel auswählen 

SHIFT G 

Daten als Pinsel übernehmen 

Commodore G 

Fillmuster erzeugen 

Commodore P 

Koordinatenanzeige EIN/AUS 

T 

TEXT 

Commodore D 

PON fügt Zeichen in Grafik ein 

POFF löscht ln Zeichenform 

PFEIL HOCH verbindet Zeichen "EOR» 
mit Bildschirm 

SHIFT-PFEIL HOCH schaltet -EOR» aus 

TAB schaltet auf BREIT 

SHIFT-TAB schaltet BREIT aus 

LINEFEED schaltet auf FETT 
SHIFT-LINEFEED schaltet FETT aus 

Fl kippt Zeichen stark nach links 

F3 kippt Zeichen leicht nach links 

F5 kippt Zeichen leicht nach rechts 

F7 kippt Zeichen stark nach rechts 

SHIFT F2, F4, F6, F8 schaltet Kippen aus 
zum Disk-Menü 

X 

EXTERN 


Alle Befehle auf einen Blick 


der aufbaut. Mit <SET> akzeptieren Sie das Ergebnis. 
Ein <UNDO> ist nun nicht mehr möglich! Mit der STOP- 
Taste wird das Ergebnis ebenfalls akzeptiert, »GREDI< 
bleibt jedoch in der Normaldarstellung. <UNDO> ist auch 
hier nicht mehr möglich. 

Die einzelnen Funktionen werden wie folgt aufgerufen: 
BIG-LINIE <CBM L> 

BIG-RECHTECK <CBM R> 

BIG-KREIS <CBM K> 

BIG-ELLIPSE <CBM E> 

Haben Sie heute schon - geSHAPEt? 


Zum Verschieben und Verändern von Bildbereichen be¬ 
nutzt »GREDI V3« sogenannte »Shapes«. Ein solches 
»Shape« muß zuerst einmal definiert werden. 

GETSHAPE <G> 

Ähnlich wie bei der Rechteck-Funktion wird mit dem 
Gummi-Rahmen ein Ausschnitt der Grafik gewählt und mit 
<SET> als »Shape« definiert. In X-Richtung läßt sich der 
Rahmen nur in 8-Pixel-Schritten bewegen, da immer nur 
ganze Bytes übernommen werden. Für die Y-Richtung ist 
der Zustand von »Step« maßgebend. »GETSHAPE« kann 
jederzeit mit der STOP-Taste abgebrochen werden. Mit 
<SHIFT PFEIL HOCH> wird die gesamte sichtbare Gra¬ 
fikseite als »Shape« definiert. Ein definiertes »Shape« bleibt 
so lange im Speicher erhalten, bis ein neues definiert wird. 
Shape 1: <SHIFTS> 

Ein definiertes »Shape« wird an der Cursorposition dar¬ 
gestellt und kann mit den Cursortasten über den Bildschirm 
bewegt werden (Schrittweite abhängig von »Step«). Mit 
<SET> positioniert man das »Shape« und verläßt den 
Shape-Modus. Bei Verwendung von <STOP> wird der 
Shape *.' odus beendet, ohne das »Shape« zu setzen. 

Bei gleichzeitig gedrückter SHIFT-Taste (am besten 
<SHIFT/LOCK>) und aktiviertem »Shape 1« vergrößern 
beziehungsweise verkleinern Sie mit den grauen Cursorta¬ 
sten das »Shape« in die jeweilige Richtung. <SET> setzt 
das »Shape« und beendet den Shape-Modus. 

Shape 2: <CBM S> 

Das »Shape« wird dargestellt und an der Cursorposition 
in die jeweilige Richtung gespiegelt. <SET> und 
<STOP> wie bei »Shape 1«. 

Mit gedrückter SHIFT-Taste rollt man den Shape-Inhalt 
mit den oberen Cursortasten in die jeweilige Richtung. 
Punkte, welche an einem Shape-Rand verlorengehen, er¬ 
scheinen auf der gegenüberliegenden Seite wieder. 
<SET> und <STOP> wie bei »Shape 1«. 

Ein »Shape« kann auf verschiedene Arten mit der Grafik 
verknüpft werden. 

Betätigen Sie die Taste < K > (Kleben) bei aktivem »Sha¬ 
pe 2«, wird das »Shape« über eine andere Grafik geklebt. 


Hinweis: 

Ist im Shape-Muster ein Punkt gesetzt, wird in der 
Grafik ein Punkt gesetzt (bei »Plot aus« ein Punkt 
gelöscht >. Ist im Shape-Muster kein Punkt gesetzt, 
wird in der Grafik ein Punkt gelöscht. 


Kurzinfo: ZEDI 


Programmart: Zeichen-Editor zu GREDI V3 
Laden: Nur innerhalb von GREDI V3 
Start: Startet automatisch 

Besonderheiten: Komfortabler Zeichen-Editor zum Erstellen von 
GREDI-Zeichensätzen. Printfox-Dateien können verwendet werden. 
Programmautor: Arno Pichler 
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Die Taste <E> (Einfügen) bei aktivem »Shape 2« fügt 
das »Shape« in die Grafik ein. 


Hinweis: 

Ist im »Shape« ein Punkt gesetzt, wird auch in der Gra¬ 
fik ein Punkt gesetzt (bei »Plot aus« ein Punkt gelöscht). 
Ist im »Shape« kein Punkt gesetzt, wird auch an der Gra¬ 
fik nichts verändert. 


Um eine »Shape« EXOR mit der Gi afik zu verbinden, akti¬ 
vieren Sie zunächst »Rays ein« («-Taste). Anschließend 
drücken Sie <E> für Einfügen. 

Mit <l> können Sie bei einer aktivierten Shape-Funk- 
tion jederzeit das »Shape« invertieren. 

Copy: <SHIFT C> 

Mit »Copy« ist ein grobes, aber dafür schnelleres Ver¬ 
schieben einzelner Bildbereiche möglich. Auch hier benö¬ 
tigt man ein definiertes »Shape«. Ein Vergrößern oder Ver¬ 
kleinern ist bei »Copy« nicht durchführbar. Spiegeln, Scrol¬ 
len und Invertieren muß vorher mit den »Shape«-Befehlen 
vorgenommen werden. 

Gehen Sie mit dem Cursorpfeil an die Position, wohin Sie 
das »Shape« kopieren möchten. Nach < SET> kontrolliert 
»GREDI V3«, ob in der Breite und Höhe auch genug Platz 
für das »Shape« ist. Ist dieses nicht der Fall, wird »Copy« 
wieder verlassen. Ansonsten erwartet »Copy« noch eine 
weitere Eingabe: Entweder <0> fürORA, <A> für AND, 
<E> für EOR oder <S> für STAMP. 

ORA setzt immer dann einen Punkt, wenn auch im »Sha¬ 
pe« ein Punkt gesetzt ist. 

AND setzt nur dann einen Punkt, wenn gleichzeitig in der 
Grafik und im »Shape« ein Punkt gesetzt ist. 

EOR setzt einen Punkt in der Grafik, wenn im »Shape« 
kein Punkt gesetzt ist und umgekehrt. 

STAMP klebt das »Shape« über die Grafik. 

Grafiken beschriften mit Gredi-Text 


Text: <T> 

Mit »GREDI V3« können Sie auch Ihre erstellten Grafiken 
beschriften. Der Text-Modus wird durch die T-Taste aufge¬ 
rufen. Statt dem Cursorpfeil erscheint nun der Text-Cursor, 
ein senkrechter Strich, dessen Höhe sich nach dem aktuel¬ 
len Zeichensatz richtet. Mit dem Anwählen der Text- 
Funktion wird gleichzeitig ein Textkasten definiert. Die Brei¬ 
te dieses Kastens reicht von der aktuellen X-Position bis 
zum rechten Bildschirmrand und die Höhe von der Y- 
Position bis zum unteren Bildschirmrand. Ein Druck auf ei¬ 
ne Taste (Buchstaben, Satzzeichen, oder Zahlen) bringt 
das jeweilige Zeichen auf den Bildschirm. Großbuchstaben 
und einige Satzzeichen werden mit der SHIFT-Taste ge¬ 
setzt. Die Darstellung der Zeichen erfolgt immer in propor¬ 
tionalen Abständen, das heißt ein »i« benötigt weniger Platz 
als ein »m«. In einer Textzeile ist Platz für maximal 127 Zei¬ 
chen, sofern die Breite der Zeichen es zuläßt. Maximal 30 
Textzeilen finden innerhalb eines Textkastens Platz (wenn 
es die Zeichenhöhe zuläßt). Mit den Tasten <DEL> und 
<CURSOR links> wird das letzte Zeichen der aktuellen 
Textzeile gelöscht. cCURSOR abwärts > und 

< RETURN > setzen den Cursor hinter das letzte Zeichen 
der darunterliegenden Textzeile. Ist allerdings am unteren 
Bildschirmrand nicht mehr genügend Platz, um ein Zei¬ 
chen in voller Höhe darstellen zu können, erfolgt kein 
Sprung in die nächste Zeile. <CURSOR aufwärts > setzt 
den Cursor hinter das letzte Zeichen der darüberliegenden 
Textzeile, sofern die definierte Textspalte es erlaubt. Mit 

< STOP> wird »Text« wieder verlassen, doch zuvor sollten 


Beliebig viele Zeichensätze sind nachladbar und 
können breit oder fett ausgegeben werden ! 

es® mdlll 

Mos fa 

mjLldmik-U» 'WkL ( §^--fomat 
jmmcldt mahn. 


Bild 1. Verschiedene Schriftarten lassen sich kombinieren 


Sie erst noch einige Spezialitäten dieser Funktion kennen¬ 
lernen. 

Die Zeichen werden im Normalfall mit der Grafik ver¬ 
knüpft, dieses läßt sich auch durch »Plot ein« jederzeit an¬ 
wählen. Bei »Plot aus« werden keine Punkte gesetzt, son¬ 
dern in Zeichenform gelöscht. 

Durch »Rays ein« (bei »Text« wird »Rays ein/aus« mit der 
Taste < PFEIL HOCH > eingestellt) ist es möglich, die Zei¬ 
chen EXOR mit der Grafik zu verbinden. »Rays aus« schal¬ 
tet dann auch gleichzeitig wieder auf »Plot ein«. 

Doch damit noch nicht genug: Die TAB-Taste schaltet auf 
breit um. Alle Zeichen erscheinen nun in doppelter Breite. 
<SHIFTTAB> schaltet die Breitschrift aus. 

Mit <LINEFEED> schalten Sie auf Fettschrift. Die 
Buchstaben werden etwas stärker ausgegeben. <SHIFT 
LINE FEED> macht die Funktion wieder rückgängig. 

Mit den Funktions-Tasten wird auf Kursivschrift umge- 
schaltct, wobei 

<F1 > die Zeichen nach links kippt. 

< F3 > kippt die Zeichen ebenfalls nach links, jedoch nur 
leicht. 

<F5> kippt die Zeichen ganz leicht nach rechts, und 

<F7> neigt die Zeichen etwas stärker. 

Um auf ungekippte Zeichen zurückzuschalten, drücken 
Sie eine der Funktions-Tasten kombiniert mit cSHIFT>. 

Die oben aufgeführten Möglichkeiten, Text darzustellen, 
sind selbstverständlich alle jederzeit miteinander kombi¬ 
nierbar. Ein Demo über die verschiedenen Schriftarten und 
deren Darstellung finden Sie in Bild 1. Wird ein Zeichen mit 
<DEL> oder < CURSOR links> gelöscht, ist automa¬ 
tisch die Darstellungskombination aktiv, welche bei dem 
gelöschten Zeichen eingestellt war. 

»Text« ist in der Lage, 96 Zeichen darzustellen. Die Tasta¬ 
turbelegung entnehmen Sie bitte der Tabelle 2. 


ANMERKUNG: 

Im Grundprogramm von »GREDI V3« ist kein Zeichen¬ 
satz enthalten, es muß also immer erst einer nachgela¬ 
den werden !!! Um eigene Zeichensätze zu erstellen, ist 
das Zusatzprogramm »Zedi« nötig, auf das wir später 
eingehen wollen. Damit Sie mit »Text« experimentieren 
können, geben Sie den Zeichensatz »Gredi.klein.zs«(Li- 
sting 4) mit dem MSE (Seite 158) ein. 


Wenn Sie auf mehrere vorbereitete Zeichensätze zugrei¬ 
fen wollen, weisen wir auf unsere Service-Diskette zum 
Heft, die einige Zeichensätze zu »Gredi V3« enthält. 

Zoom: <Z> 

An der Cursorposition erscheint ein kleiner Rahmen. 
Bringen Sie den Rahmen über den Ausschnitt der Grafik, 
den Sie vergrößert haben wollen. Nach < SET> erscheint 
dann in der linken oder rechten Bildschirmhälfte dieser 
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Ausschnitt stark vergrößert. Der nun sichtbare, blinkende 
Cursor läßt sich innerhalb des Zoomfensters bewegen, und 
< SET > setzt (»Plot ein«) oder löscht (»Plot aus«) einzelne 
Punkte. <STOP> führt wieder zur Normaldarstellung. 
Fill-Wahl: <SHIFTF> 

In der linken oberen Ecke des Bildschirms erscheint ein 
kleines Fenster, das das gerade aktuelle Fillmuster anzeigt. 
Mit <CURSOR rechts> und cCURSOR links> kann nun 
in einer Bibliothek von 20 Fillmustern vor- und zurückge¬ 
blättert werden. <SET> definiert das sichtbare Muster als 
aktuelles Fillmuster. Damit Sie sich nicht gleich eigene Fill¬ 
muster erstellen müssen, geben Sie Listing 5 und Listing 6 
mit dem MSE (Seite 158) ein. Somit haben Sie zwei ver¬ 
schiedene Fillmuster zur Verfügung, die Sie sofort benut¬ 
zen können. 

Pinsel-Wahl: <SHIFTD> 

Wie bei »Fill-Wahl«, nur können Sie jetzt einen von 16 Pin¬ 
sel wählen. Das Listing 7 (bitte mit dem MSE auf Seite 158 
eingeben) stellt Ihnen eine Pinseldatei zur Verfügung. 


Bemerkung: 

Im Grundprogramm von »GREDI V3« sind keine Fill¬ 
muster oder Pinsel vorhanden. Sie müssen entweder 
welche von Diskette nachladen oder können, wie im fol¬ 
genden beschrieben, selbst welche entwerfen. 


Get Fill: <CBM G> 

Auf dem Bildschirm erscheint wieder der von »Zoom« be¬ 
kannte Rahmen. Ist ein Ausschnitt gewählt, wird nach 
< SET> der im Rahmen sichtbare Grafikausschnitt als ak¬ 
tuelles Fillmuster in die Musterbibliothek übernommen. 
Um ein Muster zu entwerfen, gehen Sie in den Zoom- 
Modus. Das Zoomfenster hat die Größe eines Fillmusters, 
Get Pinsel: <SHIFTG> 

Hier wird der Umkreis des aktuellen Grafikpunktes als 
Pinsel in die Pinselbibliothek übernommen. Der Cursor 
deutet dabei auf die Mitte des späteren Pinsels. 

Ein Pinsel hat die Größe von 16 x 8 Pixel. 

Weitwinkel: <W> 

Wurde »Weitwinkel« gewählt, kann mit < CURSOR 
links> und <CURSOR rechts> die Bildhälfte gewählt 
werden, in der die Übersicht der Gesamtgrafik aufgebaut 
werden soll. Nach einem weiteren Tastendruck (Joystickbe¬ 
wegung) blendet sich die Übersicht wieder aus. Bei »Weit¬ 
winkel« zusammen mit <SHIFT> bleibt die Übersicht am 
Bildschirm erhalten, sie kann allerdings mit UNDO wieder 
entfernt werden. 

Scrollen: < PFEIL HOCH > 

cCURSOR abwärts> scrollt in die untere Hälfte der 
Gesamtgrafik und cCURSOR aufwärts> in die obere. 
cSET > verläßt »Scrollen«. 

Position: cCBM P> 

Je nach Cursorposition blendet sich in der unteren, lin¬ 
ken oder rechten Ecke die Koordinatenanzeige ein, die ein 
noch genaueres Zeichnen erlaubt. 

Ist der Cursor dargestellt, wird die aktuelle X/Y-Position 
gezeigt. Befinden Sie sich in der Linienfunktion, zeigt 
cCBM P> immer die Position des Punktes an, der verän¬ 
dert wird. Bei Kreisen, Ellipsen etc. erhalten Sie hinter X/Y 
den jeweiligen Radius; bei Kuchen- und Bogenfunktionen 
den Startwinkel hinter cS> und Endwinkel hinter cE>. 

Das erneute Anwählen von »Position« schaltet die Koor¬ 
dinatenanzeige wieder aus. 

»GREDI V3« erkennt selbständig, ob ein RAM-Modul ein¬ 
gesteckt ist oder nicht. Ist kein Modul vorhanden, bewirken 
die folgenden Funktionen natürlich nichts. 

Auf dem RAM-Modul 1750 lassen sich nun bis zu zehn 
Gesamtgrafiken, beim RAM-Modul 1700 nur vier Gesamt¬ 


grafiken, Zwischenspeichern. Hierzu stehen vier Befehle 
zur Verfügung. Sie werden alle mit den Funktionstasten 
eingeleitet und haben folgende Gemeinsamkeit: 

Die Grafiken im RAM-Modul werden unter einer Nummer 
geführt. Nach Druck auf die jeweilige Funktionstaste erwar¬ 
tet »GREDI V3« eine weitere Tastatureingabe, und zwar die 
Nummer der gewünschten Grafik. Diese wiederum muß mit 
den Zifferntasten des Zehnerblocks eingegeben werden. 
Erlaubt sind die Tasten c0> bis c3> beim RAM-Modul 
1700 und c0> bis c9> beim RAM-Modul 1750. Mit 
c ENTER > können Sfe diese Funktionen vorzeitig wieder 
verlassen. Es existieren folgende Möglichkeiten: 

Mit < Fl > sichern Sie die im Speicher befindliche Ge¬ 
samtgrafik unter der zuletzt gewählten Nummer im Modul 
(bei Erstaufruf ist die letzte Grafiknummer gleich »0«). An¬ 
schließend wird die Grafik mit der gewählten Nummer vom 
Modul in den Speicher geholt und angezeigt. 

<F3> holt die Grafik mit der gewählten Nummer aus 
dem Modul in den Speicher und zeigt sie auf dem Bild¬ 
schirm an. Die Grafik, die sich zuvor im Speicher befand, 
wird nicht im Modul gesichert. 

<F5> holt die gewählte Grafik aus dem Modul in den 
Speicher. Die Grafik wird nicht auf dem Bildschirm ange¬ 
zeigt. Die Grafik, die sich zuvor im Speicher befand, wird 
nicht im Modul gesichert. Diese Funktion ist vor allem bei 
»Weitwinkel« mit <SHIFT> sehr nützlich. 

<F7> speichert die Grafik im Speicher unter der ge¬ 
wählten Nummer im Modul ab. 

Benutzung von Erweiterungen 

Es gibt viele nützliche Software-Erweiterungen, die Sie in¬ 
nerhalb des Zeichenprogramms weiter verwenden kön¬ 
nen. ‘'■'ilche Erweiterungen sind zum Beispiel das weiter 
unten beschriebene Programm »GREDI.PRINT« und der 
Zeichensatzeditor »ZEDI«. 

Extern: <X> 

Über »Extern« lassen sich Erweiterungen laden und star¬ 
ten. Zunächst schaltet »GREDI V3« auf den Textbildschirm 
und erwartet die Eingabe eines Filenamens. Geben Sie 
hier den Namen der Erweiterung ein und drücken die 
RETURN-Taste. Anschließend lädt und startet das Erweite- 


Im folgenden werden nur die Tasten aufgeführt, welche anders 
belegt sind als auf der Tastatur angegeben. 

TASTE 

OHNE SHIFT 

MIT SHIFT 

Klammeraffe 

ü 

Ü 


ö 

Ö 

; 

ä 

Ä 

0 

0 

§ 

+ 

ß 

+ 

• 

* 

eck. Klammer links 


B 

eck. Klammer rechts 

Pfeil hoch 

< 

> 

Pfund 

PLOT EIN 

PLOT AUS 

Pfeil hoch 

RAYS EIN 

RAYS AUS 

CRSR RIGHT 

Leerzeichen 

DELETE 

Fl 

Kippen links stark 

Kippen aus 

F3 

Kippen links leicht 

Kippen aus 

F5 

Kippen rechts leicht 

Kippen aus 

F7 

Kippen rechts stark 

Kippen aus 

TAB 

BREIT EIN 

BREIT AUS 

LINE FEED 

FETT EIN 

FETT AUS 

Die Tasten ESC, 

HELP, NO SCROLL, ASCII/DIN und die 

Tasten der Zehnertastatur haben bei TEXT keine Wirkung. 


Tabelle 2. Die Tastaturbelegung bei »Text« 
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rungsprogramm. Wird nur <RETURN> gedrückt, ohne 
die Eingabe eines Namens, gelangen Sie wieder in den 
Grafikeditor. 


Eine Erweiterung muß folgende 
Voraussetzungen erfüllen: 

1. Sie muß bei Hex.$6000 beginnen. 

2. Die ersten 5 Byte müssen aus dem Schriftzug 
»GREDI« im ASCII-Code bestehen. Mit einem Assem¬ 
bler werden ASCII-Tabellen meist mit -.BYTE »GREDI«-, 
-.ASC »GREDI«- oder -.Text »GREDI« erzeugt. Diese 5 
Byte dienen zur Sicherheit, um nicht versehentlich ein 
anderes Programm zu starten und eventuell einen Ab¬ 
sturz hervorzurufen. 

3. Arbeitet eine Erweiterung im Textmodus, muß die 
Erweiterungsroutine mit <JMP $390f> enden, damit 
ein Zurückkommen zu »GREDI V3« garantiert und der 
Textmodus wieder eingeschaltet wird. Soll eine Erweite¬ 
rung im Grafikmodus ablaufen, können Sie diesen mit 
<JSR $390f> einschalten und die Erweiterung mit 
<RTS> beenden. 


Nützliche Routinen zu »GREDI V3« finden Sie in der bei¬ 
liegenden Auflistung (Tabelle 3). 

Disk: <CBM D> 

»GREDI V3« schaltet nun um auf Textdarstellung, und es 
erscheint das Disk-Menü mit folgenden Auswahlmöglich¬ 
keiten: 

Laden 

Speichern 

Directory 

Befehl senden 

Gredi 

Mit den Tasten der negativ dargestellten Buchstaben ru¬ 
fen Sie den jeweiligen Menüpunkt auf. 

Bei »Laden« erscheint auf dem Bildschirm links oben der 
Schriftzug »FILENAME:«. Geben Sie hier den Namen des 
gewünschten Programm-Files ein und bestätigen mit 
< RETURN >. Soll eine Grafik von Diskette mit der im Spei¬ 
cher befindlichen vermischt werden, dann geben Sie bitte 
nach der Frage »MISCHEN J/N« <J> ein. Andernfalls wer¬ 
den nach <N> die Daten über die alte Grafik geschrieben. 
Die Frage nach »Mischen« wird auch bei »Pinsel«, »Zei¬ 
chensatz«, »Shape« und »Füllmuster« gestellt. Bei »Shape« 
und »Zeichensatz« wäre ein Mischen möglich, bei Zeichen¬ 
satz aber nicht sinnvoll. Pinsel und Füllmuster werden auch 
bei »Mischen« <J> nicht gemischt. 

Das Programm versucht, das File zu laden. Sollte dieses 
aus irgendwelchen Gründen nicht möglich sein (File nicht 
vorhanden, keine Diskette im Laufwerk etc.), wird dieses 
mit der üblichen Fehlermeldung angezeigt, und das Disk- 
Menü erscheint wieder. Wurde das File gefunden, und es 
handelt sich dabei um ein von »GREDI V3« lesbares File, 
wird es an den jeweils dafür vorgesehenen Speicherplatz 
geladen. Die Laderoutine akzeptiert folgende Programm- 
Files: 

1. GREDI-Gesamtbilder 

2. GREDI-Einzelbilder (Bildschirmgröße) 

3. GREDI-Shapes 

4. GREDI-Fillmuster 

5. GREDI-Pinsel 

6. GREDI-Zeichensätze 

7. Printfox-Gesamtbilder 

8. Printfox-Einzelbilder 

9. Print-Shop Kleingrafiken (Epson-Format) 

10. alle VIC-Bitmaps, die mit einer Ladeadresse von 
$0000, $1000, $2000 etc. abgespeichert wurden. 

Printfox-Einzelbilder, VIC-Bitmaps und Print-Shop- 
Grafiken werden in den Shape-Speicher geladen. Haben 


BANK0 

von $ 0 b 00 bis $ 0 ea 1 

GREDI-Routinen (Common Area) 

von $1300 bis $46fe 

GREDI-Hauptprogramm 

von $5a00 bis $5aff 

reserviert für 16 Pinselmuster 

von $5b00 bis $5fff 

reserviert für 20 Fillmuster 

von $7a00 bis $7fff 

zeitweilig benutzt (FILL) 

von $8200 bis $c07f 

zeitweilig benutzt (FILL und BIG- 
Funktionen) 

von $C080 bis $feff 

UNDO Bildschirm 

BANK 1 

von $1000 bis $4fff 

SHAPE-Speicher 

von $5000 bis $81ff 

Zeichensatz-Speicher 

von $8200 bis $feff 

Gesamtgrafik-Speicher 

Nützliche Routinen und Speicherstellen von GREDI V3 

$17/$18 

aktuelle X-Position 

Cursor low/high (XPO) 

$19/$1a 

aktuelle Y-Position 

Cursor low/high (YPO) 

$1b/$1c 

X-Position Plotpunkt (XPOI) 

$1d/$1e 

Y-Position Plotpunkt (YPOI) 

$1f/$20 

Zielpunkt X bei Linie usw. (XP02) 

$21/$22 

Zielpunkt Y bei Linie usw. (YP02) 

$1d16 

bringt XPO/YPO nach XPOI/YPOI 
(RETCOR) 

$ 1 fde 

setzt/löscht/invertiert Punkt an 

XPOI/YPOI abhängig vom Zustand des 

Bytes MODE(PLOT) 

$1410 

MODE- 

ist Bit 7 gesetzt, wird bei PLOT Invertiert 
ist Bit 7 gelöscht, wird 
wenn Bit 6 gesetzt ist, gezeichnet und 
wenn Bit 6 gelöscht ist, gelöscht. 

$1375 

schreibt Akku in VDC anAdresse $23/$24 
X-undY-Register bleiben erhalten 
(POKEIT) 

$138b 

holt Wert aus VDC in Akku, 

Adresse $23/$24 

X-und Y-Register bleiben erhalten 

$13a1 

(PEEKIT) 

schreibt Akku in VDC. Adresse im X/Y- 
Register Low/High (POKEVDC) 

$13b5 

holt Wert aus VDC in Akku, Adresse im 
Akku/Y-Register Low/High (PEEKIT) 

$1c43 

zieht Linie von XPOI/YPOI nach 

XP02/YP02 (LINIE) 

$1f(4 

wie LINIE nur X-Y-Werte bleiben erhalten 
(LINE) 

$376f 

schaltet von Grafik auf Textmodus 

$390f 

schaltet von Text auf Grafikmodus und 
gleichzeitig wird die Grafik aufgebaut. 

$0c01 

schreibt Akku nach Adresse $FB/$FC in 

Bank 1 

$0bf9 

holt Wert aus Adresse $FB/$FC in Bank 1 

Um einen gesetzten Punkt 

Linie etc. endgültig in die Grafik zu über- 

nehmen, können Sie durch Aufruf der Routine SICHERN ($0b00) den 
Undo-Speloher nach Bank 1 in die Gesamtgrafik übertragen. 


Tabelle 3. Die Speicherbelegung von GREDI 


Sie den Menüpunkt »Laden« versehentlich angewählt, ge¬ 
langt man durch < RETURN > ohne sonstige Eingabe wie¬ 
der zum Disketten-Menü. 

Bei »Speichern« erscheint das Speicher-Menü mit den 
Punkten: 

Shape 

Fillmuster 

Pinsel 

Zeichensatz 

Einzelbild 

Gesamtbild 

Disk-Menü 

Durch Drücken der entsprechenden Taste und der Einga¬ 
be eines Filenamens speichern Sie das Gewünschte. Soll¬ 
ten Sie es sich aber anders überlegt haben, geben Sie statt 
einem Namen nur < RETURN> ein, und Sie gelangen 
wieder ins Disketten-Menü. Ein Rücksprung ins Disketten- 
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Menü erfolgt auch mit < D >. Geben Sie Ihren Programmfi¬ 
les am besten eine Kennung hinter den Namen, um Sie 
nachher besser unterscheiden zu können (zum Beispiel 
SH für »Shape«, GB für Gesamtbild). Als Einzelbild wird im¬ 
mer der zuletzt sichtbare Bildschirminhalt gespeichert. Um 
Platz auf der Diskette zu sparen, sind alle Daten in kompri¬ 
mierter Form auf der Diskette enthalten. 

»Directory« zeigt das Inhaltsverzeichnis der eingelegten 
Diskette an. Wie gewohnt, können Sie die Ausgabe mit der 
NO SCROLL-Taste anhalten und wieder starten. Mit 
<STOP> wird die Ausgabe unterbrochen. 

Bei »Befehl senden« erscheint der Schriftzug »BE¬ 
FEHL:«, und es besteht die Möglichkeit, Diskoperationen 
(Files löschen, umbenennen etc.) durchzuführen. Dabei 
wird weder der OPEN-Befehl noch der CLOSE-Befehl be¬ 
nötigt. Sie geben einfach nur den gewünschten Befehl ein. 
Das folgende Beispiel löscht das Fillmuster »FILL.OO« (Bitte 
nicht ausprobieren!): 

S:FILL.OO 

Die G-Taste bringt Sie wieder zurück in den Grafikeditor. 


Hinweis: 

Die Input-Routine zur Eingabe des Filenamens ist so 
programmiert, daß die Bildschirmmaske nicht zerstört 
wird. Eingaben können wie vom Basic-Interpreter her 
gewohnt vorgenommen werden. <DEL> löscht das 
letzte Zeichen vor dem Cursor, <INST> fügt an der Cur¬ 
sorposition ein Zeichen ein, <HOME> setzt den Cur¬ 
sor an den Zeilenanfang und <CLR> löscht das Einga¬ 
befeld. Die Input-Routine läßt nur maximal 16 Zeichen 
für einen Filenamen zu. 


GREDI.PRINT«(Listing8)istein Hardcopy-Programm für 
das Grafikformat von »GREDIV3« und wurde für den STAR 
NG-10 programmiert. 

»GREDI.PRINT« wird über die Extern-Funktion geladen 
und gestartet. Es erscheint nun ein kleines Menü mit den 
Menüpunkten: 

KLEIN 

NORMAL 

GREDI 

Mit »Klein« drucken Sie die Grafik mit vierfacher Dichte 
aus. Beim Kleindruck besteht die Möglichkeit, zwei Grafi¬ 
ken nebeneinander auszudrucken. Es erscheint deshalb 
als nächstes die Frage nach »EINZELGRAFIK J/N ?«. Bei 
< J > wird die im Speicher befindliche Grafik alleine ausge¬ 
druckt. 

Durch die Eingabe von <N> haben Sie die Auswahl, die 
im Speicher befindliche Grafik zweimal nebeneinander, 
oder eine zweite Grafik von Diskette nachzuladen und die¬ 
se zusammen mit der Speichergrafik auszudrucken. 

Sind alle Angaben gemacht, erscheint in der linken obe¬ 
ren Bildschirmecke die Aufforderung »SPACE=START«. 
Nach Betätigen der SPACE-Taste beginnt der Ausdruck, 
und es erscheint die Meldung »STOP=ABBRUCH«. Haben 
Sie den Druckvorgang gestoppt, können Sie zwischen drei 
Befehlen auswählen. Bei »Fortsetzen« wird der Ausdruck 
an der angehaltenen Stelle weitergeführt. Bei »Neustart« 
erfolgt der Ausdruck wieder vom Anfang. »Ende« bringt Sie 
wieder ins GREDI.PRINT-Menü. 

Wurde im Menü »Normal« gewählt, wird die Grafik in dop¬ 
pelter Dichte ausgedruckt. Zwei Grafiken nebeneinander 
zu drucken, ist hier nicht möglich. Ansonsten gilt das beim 
Kleindruck beschriebene Vorgehen. 

Mit <G> gelangen Sie wieder in den Grafikeditor. 

Mit Hilfe von »ZEDI« (Listing 9, bitte mit dem MSE, Seite 
158 eingeben) können Sie auf komfortable Weise eigene 
Zeichensätze für die Textfunktion von »GREDI V3« entwer¬ 
fen. Wer sich nicht die Arbeit machen möchte, eigene Zei- 


Der Zeichensatzeditor zu »Zedi« 


chen zu entwerfen, kann die vielen Zeichensätze für den 
Printfox in das GREDI-Format wandeln. 

Geladen und gestartet wird »ZEDI« über die Extern- 
Funktion <X> (ohne »GREDI« ist »ZEDI« nicht lauffähig). 
Geben Sie als Filenamen »ZEDI« ein. Nach einer kurzen 
Ladezeit erscheint das Startmenü. Folgendes steht Ihnen 
hier zur Auswahl: 

Neuen Zeichensatz erstellen 

Spsicherzeichen bearbeiten 

Zeichensatz laden 

Directory 

Gredi 

Die negativ dargestellten Zeichen stehen für die entspre¬ 
chenden Tasten, welche zum Aufruf eines Menüpunktes 
gedrückt werden müssen. 

< N > drücken Sie, wenn Sie sich einen neuen Zeichen¬ 
satz erstellen wollen. Auf dem Bildschirm erscheint folgen¬ 
de Darstellung: 

<F1/F2> Gesamtbreite +/-:08 

<F3/F4> Gesamthöhe +/-: 08 

< RETURN > Werte übernehmen 

Mit < Fl > können Sie nun in 8er-Schritten die Zeichen¬ 
breite erhöhen, bis max. 56 Pixel. <F2> zählt rückwärts. 

Ebenso läßt sich mit den Tasten <F3> und <F4> die 
maximale Zeichenhöhe einstellen. »ZEDI« paßt dabei ge¬ 
nau auf, daß Sie nicht aus Versehen zu große Werte einge¬ 
ben. Die Gesamt-Byte-Zahl (Breite x Höhe) für ein einzel¬ 
nes Zeichen darf den Wert 128 nicht übersteigen. Sind die 
Werte eingestellt, kommen Sie mit < RETURN> in den 
Editor. Doch dazu später. 

<S> erlaubt das Bearbeiten eines sich eventuell im 
Speicher befindlichen Zeichensatzes. Wurde weder von 
»GREDI« noch von »ZEDI« bis dahin ein Zeichensatz gela¬ 
den, werden Sie darauf hingewiesen, andernfalls gelangen 
Sie in den Editor. 

<Z> fragt nach den Namen eines auf Diskette befindli¬ 
chen Zeichensatzes und lädt diesen anschließend in den 
Speicher. »ZEDI« prüft hierbei, ob es sich bei dem gewähl¬ 
tem Programm-File auch wirklich um einen Zeichensatz 
handelt. Ist dieses nicht der Fall, gibt der Zeichensatz- 
Editor eine entsprechende Meldung aus und springt wieder 
ins Menü. Es werden nicht nur die mit »ZEDI« erstellten Zei¬ 
chensätze geladen, sondern auch alle Printfox-Zeichen¬ 
sätze. Printfox-Anwendern stehen hier ja eine riesige An¬ 
zahl von Zeichensätzen zur Verfügung. 

<D>zeigt das Inhaltsverzeichnis der eingelegten Dis¬ 
kette an. Die Ausgabe kann mit <NOSCROLL> angehal¬ 
ten und mit <STOP> abgebrochen werden. 

<G> bringt Sie wieder zurück zum Grafikeditor. 

Wurde einer der Menüpunkte <N>, <Z> oder<G> 
angewählt, und es befindet sich ein noch nicht gesicherter 
Zeichensatz im Speicher, dann weist »ZEDI« mit einer Si¬ 
cherheitsabfrage darauf hin. 

Der Editor von »Zedi« 


So, nun sind Sie durch Anwahl eines der Menüpunkte in 
den Editor gelangt. In der linken Bildschirmhälfte befindet 
sich das Raster zum Editieren der Zeichen. Links oben im 
Raster ist ein Cursor zu sehen, dieser kann mit den grauen 
Cursortasten überdas Rasterfeld bewegt werden. Die rech¬ 
te Bildschirmhälfte teilt sich folgendermaßen auf: Im obe¬ 
ren Kasten werden immer einige wichtige Informationen 
angezeigt, wie zum Beispiel die aktuelle Breite des gerade 
in Arbeit befindlichen Zeichens, oder die momentane Posi- 
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tion des Cursors im Rasterfeld. Unter diesem Informations¬ 
kasten sehen Sie einen kleineren Kasten. Dieser zeigt Ih¬ 
nen, wo sich die vier existierenden Memoryspeicher befin¬ 
den (Mem.1 / Mem.2 etc.). Unter diesem Hinweiskasten 
wiederum sind die Memoryspeicher angebracht. In diesen 
Speichern können Zeichen abgelegt werden, doch dazu 
später mehr. Am rechten unteren Bildschirmrand sehen Sie 
ein »Menü zum Blättern«. Diese Zeile zeigt Ihnen immer, 
welche Funktion Sie zuletzt angewählt haben. Eine kom¬ 
plette Auflistung aller Befehle von »Zedi« finden Sie in Kurz¬ 
form in der Tabelle 4. 

Zur Handhabung des Menüs: 

Sie haben zwei Möglichkeiten, eine Funktion aus diesem 
Menü auszuwählen. Erstens durch die Tastaturkombina¬ 
tion <ESC> (rechts oben blinkt »KOMMANDO«) gefolgt 
von einer bestimmten Taste, oder zweitens durch ein Blät¬ 
tern im Menü mit <CURSOR aufwärts> und <CURSOR 
abwärts > für rückwärts und <CURSOR links > und 

< CURSOR rechts > für vorwärts, gefolgt von <ENTER>. 

Vorder Beschreibung der einzelnen Funktionen noch ein 

Hinweis: ' 

Steht hinter einer Funktionsbeschreibung das Kürzel 
»laoEJ«, bedeutet dies, daß diese Funktion auch ohne ESC 
aufrufbar ist. 

Die Funktionen des Zeicheneditors: 

Alle Tastenangaben in Klammern bezeichnen die Aufruf¬ 
taste nach < ESC >: 

Eine Taste ohne <ESC> wählt das jeweilige Zeichen 
und zeigt es im rechten oberen Informationskasten hinter 
»Zeichen« an. Das Zeichen wird nicht im Rasterfeld darge¬ 
stellt. 

Plot ein <+> (Zehnerblock) Bei <SET> wird im Ra¬ 
sterfeld und in Memory 1 ein Punkt gesetzt. /aoE/ 

Plot aus <-> (Zehnerblock) Bei < SET > wird im Raster¬ 
feld und in Memory 1 ein Punkt gelöscht. /aoE/ 

Bei beiden Funktionen empfiehlt es sich, statt der Tasta¬ 
tur den Joystick zu benutzen. Dadurch können Sie schnel¬ 
ler Punkte im Raster setzen beziehungsweise löschen. 

Zeichen Plus < Fl > Es wird ein Zeichen im Zeichensatz 
weitergeschaltet. Das Zeichen erscheint hinter »Zeichen«. 
laoEI 

Zeichen Min. <F3> Der Zeichensatz schaltet ein Zei¬ 
chen zurück. Das Zeichen wird hinter »Zeichen« darge¬ 
stellt. /aoE / 

Rollen < ESC R> Mit den grauen Cursortasten kann das 
Zeichen im Rasterfeld in die jeweilige Richtung gerollt wer¬ 
den. Punkte, die über den Rand des Zeichens hinausra¬ 
gen, gehen verloren. Mit < SET> wird »Rollen« verlassen. 

Zeilenrollen < ESC Z> Wie bei »Rollen«, nur daß die je¬ 
weilige Zeile oder Spalte in die gewählte Richtung gerollt 
wird. Die Cursorposition (Cursor flackert) bestimmt die zu 
rollende Zeile oder Spalte. 

Lücken < ESC L > Bei dieser Funktion benötigen Sie die 
oberen Cursortasten der Tastatur. 

< CURSOR links> löscht die Spalte an der Cursorposi¬ 
tion. Die Spalten rechts vom Cursor werden herangezogen. 

< CURSOR rechts > fügt eine Spalte an der Cursorposi¬ 
tion ein. Spalten rechts vom Cursor rollen nach rechts. 
Punkte, die den rechten Rand verlassen, gehen verloren. 

< CURSOR aufwärts> löscht die Zeile an der Cursorpo¬ 
sition. Die Zeilen unterhalb des Cursors werden herange¬ 
zogen. 

< CURSOR abwärts > fügt eine Zeile an der Cursorposi- 
1 tion ein. Zeilen unterhalb des Cursors werden nach unten 
gerollt. Punkte, die den unteren Rand verlassen, gehen ver¬ 
loren. 

Mit <SET> wird »Lücken« verlassen. 

Spiegeln <ESC S> Mit cCURSOR links> und 

< CURSOR rechts> wird das Zeichen an der senkrechten 


Startmenü 


<N> 

Neuen Zeichensatz erstellen 

<S> 

Speicherzeichen bearbeiten 

<Z> 

Zeichensatz laden 

<D> 

Directory anzeigen 

<G> 

Zurück zu GREDI. 

EDITOR (in runden Klammern zu drückende Taste nach ESC) 

< Plot ein > 

(+/Zehnerblock) 

Punkte setzen ein 

<Plot aus> (- 


/Zehnerblock) 

Punkte setzen aus 

< Zeichen Plus> (Fl) 

Ein Zeichen vorwärts 

<Zeichen Min.> (F3) 

Ein Zeichen rückwärts 

< Rollen > (R) 

Rollen In 4 Richtungen 

< Zeilenrollen > (Z) 

Aktuelle Zelle/Spalte verschieben 

< Lücken > (L) 

Zeile/Spalte einfügen/löschen 

< Spiegeln > (S) 

SenkrechtA/Vaagerecht spiegeln 

< Aus Memory > (0) 

Zeichen aus Memoryspeicher 
in Rasterfeld 

<ln Memory > (1) 

Zeichen in Memory ablegen 

<UNDO> (U) 

Zeichen in ursprünglichen Zustand 

< Breite wählen > (B) 

Zeichenbreite von Hand einstellen 

<Verknüpfen> (V) 

Zeichen untereinander verknüpfen 

< Aufnahme > (A) 

Makro erstellen 

< Makro > (M) 

Makro starten 

<FILM> (F) 

Alle Zeichen mit einem Makro bearbeiten 

<Rück.Plus> (F5) 

Rückschritt erhöhen 

<Rück.Minus> (F7) 

Rückschritt erniedrigen 

<Rück.alle> (HELP) 

Rückschritt für alle Zeichen gleich 

< Löschen > (INST/DEL) 
<Cursorhome> 

Zeichen löschen 

(CLR/HOME) 

Cursor in linke obere Ecke 

<Grabschen> (G) 

Grafikausschnitt ins Arbeitsfeld holen 

<Test-Seite> (T) 

Zeichensatz austesten 

< Hilfslinie > (H) 

Hilfslinie plazieren 

<ENDE> (E) 

Zum Startmenü 

< Disk-Menü > (D) 

Diskmenü aufrufen. 

Diskfc.w -Menü 

<Z> 

Zeichensatz speichern 

<S> 

Makro speichern 

<L> 

Makro laden 

<D> 

Directory anzeigen 

<B> 

Befehl senden 

<E> 

Zurück zum Editor 


Tabelle 4. Die Gesamtübersicht aller Funktionen von ZEDI 


Achse gespiegelt. <CURSOR aufwärts> und cCURSOR 
abwärts > spiegeln an der waagerechten Achse. <SET > 
verläßt »Spiegeln«. 

Aus Memory < ESC O > Ein Zeichen aus einem der vier 
Memoryspeicher holen. Sie werden nun aufgefordert, die 
Nummer des gewünschten Memoryspeichers einzugeben 
(Tasten <1> bis <4>, auch Zehnerblock). Der Inhalt des 
Memoryspeichers wird im Arbeitsfeld (Raster) vergrößert, 
und im Memory 1 in Originalgröße dargestellt. Haben Sie 
bei der Aufforderung der Memorynummer die <1> ge¬ 
wählt, dann werden die Daten nicht aus dem Memoryspei¬ 
cher, sondern aus dem Zeichensatz geholt. <STOP> ver¬ 
läßt diesen Modus. 

In Memory < ESC I > Das Gegenstück zu »Aus Memo¬ 
ry«. Die Daten aus Memory 1 werden in einem der Speicher 
abgelegt. Wählen Sie hier wieder als »Ziel-Memory« die 
<1 >, dann ist das Zeichen im Zeichensatz abgelegt. Im 
letzten Falle errechnet »ZEDI« automatisch die Breite des 
Zeichens und zeigt diese im Informationskasten hinter »Zei¬ 
chenbreite« an. Mit <STOP> kann dieser Modus wieder 
vorzeitig verlassen werden. 

UNDO < ESC U > Der ursprüngliche Zustand eines Zei¬ 
chens kann durch »UNDO« so lange wiederhergestellt wer¬ 
den, bis Sie mit »Aus Memory« ein neues Zeichen einiesen. 

Breite wählen < ESC B> Durch »ln Memory« wird zwar 
bereits die Zeichenbreite errechnet, es ist aber manchmal 
nötig, daß für ein Zeichen eine höhere Breite benötigt wird 
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(zum Beispiel beim Leerzeichen). Mit »Breite wählen« ha¬ 
ben Sie nun die Möglichkeit, diese »von Hand« einzustel¬ 
len. Die Tasten < + > und <-> des Zehnerblocks zählen 
die Breite hoch beziehungsweise herunter. Die maximale 
und die tatsächliche Zeichenbreite kann hierbei allerdings 
nicht über- oder unterschritten werden. < ENTER > spei¬ 
chert die eingestellte Breite zusammen mit dem Zeichen 
aus Memory 1 im Zeichensatz. 


Hinweis: 

Bei einigen Printfox-Zeichensätzen ist die angegebe¬ 
ne Zeichenbreite einzelner Zeichen um eins niedriger 
als die tatsächliche Zeichenbreite. »GREDI« würde sol¬ 
che Zeichen nicht vollständig auf den Bildschirm brin¬ 
gen. Stellen Sie in solchen Fällen die Zeichenbreite mit 
»Breite wählen« auf die tatsächliche Zeichenbreite ein. 
Zum Ausgleich empfiehlt es sich, den Rückschritt (siehe 
weiter unten) um eins zu erhöhen. 


Verknüpfen < ESC V > Hiermit können Sie die Zeichen 
der Memoryspeicher mit dem Zeichen im Arbeitsfeld ver¬ 
knüpfen. Zunächst werden Sie nach dem Memoryspeicher 
(1-4) gefragt, dessen Inhalt mit dem Arbeitsfeld verknüpft 
werden soll. Anschließend geben Sie die Verknüpfungsart 
an. Dabei reicht es, wenn Sie den ersten Buchstaben ver¬ 
wenden (<0> für ORA, <A> für AND und <E> für 
EOR). Der Inhalt des gewählten Memoryspeichers wird 
nun mit dem Arbeitsfeld verknüpft und im Arbeitsfeld sowie 
in Memory 1, dargestellt. Nun besteht noch die Möglichkeit, 
das Zeichen durch Rollen in alle vier Richtungen, auf dem 
Arbeitsfeld zu plazieren. Ist das gewünschte Ergebnis er¬ 
zielt, verlassen Sie »Verknüpfen« mit <SET>. 

Aufnahme <ESC A> Über der Menüzeile blinkt nach 
Aufruf dieser Funktion der Hinweis »Aufnahme läuft!«. Von 
nun an werden fast alle Tastatureingaben zur späteren Wie¬ 
derverwendung in einem Makro aufgezeichnet. Dabei wer¬ 
den alle Eingaben der Menüpunkte »Rollen, Zeilenrollen, 
Lücken, Spiegeln, Verknüpfen, In Memory und Aus Memo¬ 
ry« berücksichtigt. Alle anderen sind von einer Aufnahme 
in einem Makro ausgeschlossen und wären wohl auch we¬ 
nig sinnvoll. Ein Druck auf die STOP-Taste beendet die Auf¬ 
zeichnung. Die Demo-Makros (Listing 10-16) zeigen einige 
schöne Möglichkeiten dieser Funktion. 

Makro < ESC M > Es wird ein mit »Aufnahme« erstelltes 
Makro abgearbeitet. Befindet sich kein Makro im Speicher, 
bewirkt diese Funktion natürlich nichts. 

FILM <ESC F> Wollen Sie zum Beispiel einen ganzen 
Zeichensatz mit dem Makro »Outline« bearbeiten, dann 
müssen Sie nicht jedes Zeichen einzeln verändern. »Film« 
nimmt Ihnen diese mühsame Arbeit ab. Der gesamte Zei¬ 
chensatz wird mit dem aktuellen Makro bearbeitet. Sie kön¬ 
nen sich zurücklehnen und »ZEDI« bei der Arbeit Zusehen. 
Nach getaner Arbeit legen Sie nur noch die Zeichenbreite 
für das Leerzeichen fest, und fertig ist ein neuer Zeichen¬ 
satz. Mit der STOP-Taste können Sie jederzeit den »Film« 
abbrechen. Durch Kombinieren zweier Makros (zum Bei¬ 
spiel Outline und Shadowl) entstehen oft interessante Zei¬ 
chenformen. 

Eine Bemerkung am Rande: 

Oft ist es der Fall, daß einige Zeichen durch ein Makro 
größer als die voreingestellte Maximal-Breite/Höhe werden 
(zum Beispiel bei »Outline«), Der Zeichensatz-Editor bietet 
Ihnen hier eine Möglichkeit, die Breite und Höhe zu verän¬ 
dern, allerdings nur, wenn dadurch die maximale Bytean¬ 
zahl von 128 nicht überschritten wird. Gehen Sie hier fol¬ 
gendermaßen vor: Angenommen, der Zeichensatz im 
Speicher hat eine Maximal-Breite von 24 und eine Maxi- 
mal-Höhe von 20. Die Breite soll nun auf 32 und die Höhe 
auf 25 gesetzt werden. Verlassen Sie hierzu den Editor mit 


ESC-E (ENDE). Sie befinden sich nun wieder im Startme¬ 
nü. Geben Sie < N > für »Neuen Zeichensatz erstellen« 
ein. Jetzt stellen Sie die Breite und die Höhe auf die ge¬ 
nannten Werte und drücken die RETURN-Taste. Schon 
sind Sie wieder im Editor. Der Zeichensatz ist erhalten ge¬ 
blieben, und Sie haben von nun an mehr Platz für Ihre Zei¬ 
chen. Dieser Vorgang funktioniert immer dann, wenn die 
gewählte Breite/Höhe nicht kleiner als die Breite/Höhe des 
im Speicher befindlichen Zeichensatzes ist. 

Rück.plus < F5> Erhöht den Rückschritt um eins. Zum 
»Rückschritt« ist noch folgendes zu sagen: Bei der Text¬ 
funktion von »GREDI« wird immer ein Zeichenabstand von 
3 Pixel gesetzt. Hier können Sie nun für jedes einzelne Zei¬ 
chen festlegen, um wie viele Pixel der Text-Cursor nach 
dem jeweiligen Zeichen wieder zurückgesetzt werden soll. 
Auf diese Weise können Sie den Zeichenabstand verrin¬ 
gern, oder auch Zeichen unter andere schieben (zum Bei¬ 
spiel bei Handschrift). Der maximale Rückschritt für ein 
Zeichen darf 99 sein, was aber wenig sinnvoll wäre. Der 
Wert für einen Rückschritt wird erst durch »In Memory« oder 
»Breite wählen« im Zeichensatz gesichert. /aoE/ 

Rück.minus < F7> Erniedrigt den Rückschritt um eins. 
Minimaler Rückschritt ist null. /aoE/ 

Rück. Alle < ESC HELP > Soll für alle Zeichen des Zei¬ 
chensatzes der gleiche Rückschritt gelten, dann müssen 
Sie nicht jedem Zeichen extra einen Rückschrittwert Zutei¬ 
len. »Rück.alle« setzt für alle Zeichen den eingestellten 
Rückschrittwert. Ein »In Memory« oder »Breite wählen« ist 
hier nicht mehr nötig. 

Löschen <INST/DEL> Löscht das Zeichen im Arbeits¬ 
feld. /aoE/ 

Cursor Home <CLR/HOME> Setzt den Cursor in die 
linke obere Ecke des Rasters. /aoE/ 

Grabschen < ESC G> Zum »Herausschneiden« einzel¬ 
ner Teil: aus dem GREDI-Grafikspeicher ist diese Funktion 
gedacht. Zunächst werden Sie nach der gewünschten Gra¬ 
fikseite (1 oder 2) gefragt. Anschließend baut sich diese 
Grafikseite auf, und ein Rahmen, dessen Größe sich nach 
der eingestellten maximalen Breite und Höhe richtet, ist zu 
sehen. Mit den oberen Cursortasten oder dem Joystick kön¬ 
nen Sie diesen Rahmen überden Bildschirm bewegen, bis 
Sie den gewünschten Ausschnitt im Rahmeninneren se¬ 
hen. Durch < SET > gelangen Sie anschließend wieder in 
den Editor. Im Arbeitsfeld erscheint der eben angewählte 
Ausschnitt zur weiteren Bearbeitung. <STOP> verläßt 
»Grabschen« vorzeitig, ohne etwas zu bewirken. Wurde im 
Grafikeditor die Koordinatenanzeige eingeschaltet, ist sie 
auch beim »Grabschen« aktiviert. 

Test-Seite < ESC T> Wenn Sie einen Zeichensatz er¬ 
stellen, wollen Sie zwischendurch auch wissen, wie die ein¬ 
zelnen Zeichen zusammengesetzt aussehen, oder ob der 
Zeichenabstand richtig ist. Hierzu rufen Sie eine Test-Seite 
auf. Wie beim »Grabschen« geben Sie die gewünschte Gra¬ 
fikseite an, dann wird die jeweilige Seite des Grafikspei¬ 
chers angezeigt. Links oben erscheint der Textcursor und 
Sie können nun, wie von der GREDI-Textfunktion gewohnt, 
auf der gesamten Bildschirmseite Ihren Zeichensatz auste¬ 
sten. Alle Funktionen, wie Fett, Breit, Kursiv etc., sind mög¬ 
lich. Mit <STOP> gelangen Sie wieder in den Editor, wo¬ 
bei das eisen Geschriebene erhalten bleibt. 

Hilfslinie < ESC H > Mit dem Joystick oder den entspre¬ 
chenden grauen Cursortasten (abwärts/aufwärts) läßt sich 
eine waagerechte Hilfslinie im Rasterfeld plazieren. Eine 
solche Hilfslinie dient zum leichteren Einhalten von Zei¬ 
chenhöhen bei Unterlängen etc. Mit < SET> verlassen Sie 
diesen Modus, wobei die Hilfslinie an jener Stelle stehen¬ 
bleibt, an der sie positioniert wurde. 

ENDE < ESC E> Der Editor wird verlassen. Sie befin¬ 
den sich wieder im Startmenü. 
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Disk-Menü < ESC D> Hier stehen Ihnen folgende Punk¬ 
te zur Auswahl: 

Zeichensatz speichern 
Speichern Makro 
Laden Makro 
Directory 
Befehl senden 
Editor 

Durch die Taste des negativ dargestellten Buchstabens 
wird der jeweilige Menüpunkt aufgerufen. 

<Z> Speichert nach Eingabe eines Filenamens den im 
Speicher befindlichen Zeichensatz auf Diskette. 

<S> Speichert nach Eingabe eines Filenamens ein im 
Speicher befindliches Makro auf Diskette. Wurde kein Ma¬ 
kro erstellt, wird ein Druck auf die S-Taste ignoriert. 

< L > Liest ein auf Diskette befindliches Makro nach Ein¬ 
gabe des Filenamens in den Makrospeicher. Handelt es 
sich bei dem gewähltem Programmfile nicht um ein Makro, 
dann wird der Ladevorgang abgebrochen und eine ent¬ 
sprechende Meldung ausgegeben. 


Bemerkung: 

Wird, nachdem ein Makro erstellt wurde, ein Zeichen¬ 
satz im Printfox-Format geladen, oder die eingestellte 
Breite/Höhe vergrößert, geht dabei das Makro verloren. 


<D> Das Inhaltsverzeichnis der eingelegten Diskette 
erscheint auf dem Bildschirm. <STOP> beendet die Aufli¬ 
stung, <NO SCROLL> hält sie an. 

<B> Erlaubt das Löschen, Umbenennen, Formatieren 
etc. in der üblichen Form. 

< E > Das Disk-Menü wird verlassen. Sie gelangen wie¬ 
der in den Editor. 

Da das Programm sehr komplex ist, werden Sie einige 
Zeit benötigen, um alle Funktionen auszukosten. Wenn Sie 
sich schon etwas mit dem Programm auskennen, werden 
Ihnen die Tabellen einen schnellen Überblick zu allen Be¬ 
fehlen geben. Haben Sie ausreichend mit »GREDI« experi¬ 
mentiert, gelingen Ihnen bestimmt ebenfalls faszinierende 
Grafiken. (Arno Pichler/ag) 


10 REM *** BANK 15 EINSCHALTEN 

#*# 

20 : 

30 BANK 15 
40 : 

50 REM *** TESTEN OB ASCII/DIN-TASTE GE 

DRUECKT IST *** 

60 : 

70 GOSUB 280: IF T THEN GOSUB 250 
80 : 

70 REM *** TEXT AUSGEBEN UND PROGRAMMTE 

ILE LADEN **# 

100 : 

110 PRINT CHRS(15)“<CLR,9DOWN,24SPACE>- GREDI 

WIRD GELADEN - 

120 PRINT CHR*<143>“<3D0WN,2BSPACE>PR0GRAMMIERT V 
ON 

130 PRINT “«DOWN,28SPACEJARNO PICHLER 
140 PRINT "t28SPACE>FRITZ—SCHAEFFER—STR. B 
150 PRINT "<2BSPACE>8201 OSTERMUENCHEN 
160 PRINT "C2BSPACEJTELEFON: 08067/1404 


< A99> 

< I A9> 

<07D> 

<HA5> 

<B9D> 

<GA1> 

<D4D> 

<NAT> 

<891 > 

<2C9> 

<OKl > 

<B36> 

<6RL> 

<LQ7> 

:>04u 




170 PRINT " CIBSPACEXMMHHMMMHHHHHMHHHHHHHMHHMMHHMt 

##*##*###* <796> 
1B® I <6CP> 
190 BLOAD "GREDI.COM“: REM UNTERPROGRAMME I 

N COMMON-AREA <HFO> 
200 BOOT "GREDI.OBJ": REM HAUPTPROGRAMM <SUB> 
210 : <1S7> 
220 : <0C1> 
230 REM **» WARTEN BIS ASCII-DARSTELLUNG 

AKTIVIERT IST «** <JQF> 
240 : <3CD> 
250 PRINT “<CLR,9D0WN,9SPACETBITTE ASCII/DIN-TAST 

E ENTRIEGELN !!" <CAE> 
260 GOSUB 280: IF T THEN 260 <MBT> 
270 RETURN <KQ7> 
280 T=0: IF PEEK(DEC(”033F"))=DECI"FD“) THEN T=1 <37V> 
290 RETURN <K67> 

Listing 1. Der Basic-Lader von GREDI, bitte mit dem 
Che^iummer Seite 158 eingeben 


Name : 

eredi. 

obj 




1300 46fe 

1400 : 

ff 

25 

2b 

2c 

05 

2b 

2c 

45 

c7 

1510 

ff 

18 

ad 

lb 

d4 

6d 

cb 

19 

04 










1408 : 

2b 

20 

75 

13 

91 

27 

ea 

60 

c2 

1518 

29 

lf 

cd 

17 

14 

bO 

ef 

85 

b9 

1300 

4c 

05 

16 

a6 

lb 

bd 

00 

04 

dl 

1410 

00 

00 

00 

6f 

02 

00 

00 

0c 

37 

1520 

fd 

18 

ad 

lb 

d4 

6d 

ca 

19 

Oe 

1308 

a6 

lc 

18 

7d 

68 

13 

85 

23 

ee 

1418 

06 

80 

02 

aO 

80 

2c 

aO 

40 

5f 

1528 

29 

lf 

cd 

18 

14 

bO 

f2 

85 

f5 

1310 

a6 

ld 

a5 

23 

7d 

00 

08 

85 

16 

1420 

8d 

03 

ff 

ad 

00 

d6 

29 

07 

4e 

1530 

fe 

ce 

ca 

19 

dO 

03 

ce 

cb 

63 

1318 

23 

2c 

12 

14 

10 

07 

a5 

le 

65 

1428 

08 

98 

28 

f0 

02 

09 

07 

a2 

6e 

1538 

19 

8d 

01 

ff 

60 

18 

98 

fO 

63 

1320 

fO 

03 

a9 

50 

2c 

a9 

00 

7d 

11 

1430 

19 

20 

cc 

cd 

98 

30 

03 

20 

9d 

1540 

Ob 

cd 

la 

14 

90 

06 

dO 

05 

cl 

1328 

00 

09 

85 

24 

a5 

lb 

29 

07 

79 

1438 

0c 

ce 

8d 

01 

ff 

60 

aO 

40 

35 

1548 

8a 

cd 

19 

14 

60 

38 

60 

18 

fb 

1330 

aa 

bd 

50 

13 

85 

29 

2c 

12 

a6 

1440 

a2 

18 

8d 

03 

ff 

20 

da 

cd 

ba 

1550 

98 

dO 

fa 

8a 

c9 

c8 

60 

20 

05 

1338 

14 

10 

06 

a2 

82 

a9 

00 

fO 

82 

1448 

29 

7f 

20 

CC 

cd 

a2 

12 

98 

3e 

1558 

00 

Ob 

20 

16 

ld 

85 

lf 

86 

30 

1340 

04 

a2 

cO 

a9 

80 

18 

65 

23 

9f 

1450 

20 

cc 

cd 

a9 

00 

e8 

20 

CC 

eO 

1560 

20 

84 

21 

a5 

le 

85 

22 

20 

96 

1348 

85 

27 

8a 

65 

24 

85 

28 

60 

80 

1458 

cd 

20 

ca 

cd 

ca 

20 

CC 

cd 

le 

1568 

cb 

15 

20 

cO 

Oc 

20 

71 

17 

94 

1350 

80 

40 

20 

10 

08 

04 

02 

01 

a5 

1460 

88 

10 

ea 

8d 

01 

ff 

20 

00 

ed 

1570 

20 

7c 

29 

fO 

56 

20 

29 

21 

84 

1358 

80 

40 

20 

10 

08 

04 

02 

01 

ad 

1468 

Ob 

20 

db 

24 

a2 

40 

aO 

00 

ad 

1578 

30 

f6 

eO 

02 

dO 

lf 

ad 

al 

9c 

1360 

80 

40 

20 

10 

08 

04 

02 

01 

b5 

1470 

98 

91 

fd 

c8 

cO 

fa 

dO 

/9 

84 

1580 

19 

dO 

48 

20 

cb 

15 

20 

18 

2e 

1368 

00 

20 

40 

3f 

7f 

06 

4e 

37 

40 

1478 

a9 

fa 

20 

22 

24 

ca 

dO 

ee 

a4 

1588 

21 

20 

cb 

15 

20 

18 

21 

20 

d6 

1370 

45 

00 

00 

00 

0a 

84 

4b 

86 

b4 

1480 

60 

a9 

80 

8d 

cc 

19 

20 

16 

c9 

1590 

69 

34 

2c 

11 

14 

30 

dO 

20 

87 

1378 

4c 

a6 

23 

a4 

24 

8d 

03 

ff 

2f 

1488 

ld 

20 

95 

14 

20 

95 

14 

a9 

fO 

1598 

c5 

14 

4c 

57 

15 

8a 

Oa 

aa 

88 

1380 

20 

al 

13 

8d 

01 

ff 

a4 

4b 

21 

1490 

00 

8d 

CC 

19 

60 

20 

Oe 

15 

17 

15a0 

bd 

b8 

19 

8d 

bO 

15 

bd 

b9 

cf 

1388 

a6 

4c 

60 

86 

4b 

a5 

23 

a6 

f9 

1498 

20 

e4 

14 

20 

00 

15 

20 

de 

la 

15a8 

19 

8d 

bl 

15 

20 

cb 

15 

20 

8c 

1390 

24 

8d 

03 

ff 

20 

b5 

13 

8d 

53 

l4a0 

lf 

20 

Oe 

15 

20 

e4 

14 

20 

af 

15b0 

c2 

21 

4c 

67 

15 

a2 

07 

b5 

fi 

1398 

01 

ff 

85 

2b 

a6 

4b 

a5 

2b 

11 

l4a8 

f2 

14 

20 

de 

lf 

20 

Oe 

15 

de 

15b8 

lb 

9d 

00 

02 

ca 

10 

f8 

60 

b4 

13 a0 

60 

48 

8a 

48 

98 

48 

a2 

12 

4a 

I4b0 

20 

d6 

14 

20 

00 

15 

20 

de 

2b 

15c0 

a2 

07 

bd 

00 

02 

95 

lb 

ca 

24 

13a8 

68 

20 

cc 

cd 

e8 

68 

20 

cc 

f9 

l4b8 

lf 

20 

Oe 

15 

20 

d6 

14 

20 

57 

15c8 

10 

f8 

60 

20 

b5 

15 

ad 

02 

2f 

13b0 

cd 

68 

4c 

ca 

cd 

48 

8a 

48 

f8 

I4c0 

f2 

14 

4c 

de 

lf 

a5 

lf 

a6 

94 

15d0 

02 

85 

21 

ad 

03 

02 

85 

22 

2d 

13 b 8 

a2 

12 

68 

20 

cc 

cd 

e8 

68 

31 

l4c8 

20 

a4 

21 

85 

17 

86 

18 

84 

42 

15d8 

20 

43 

lc 

ad 

06 

02 

85 

21 

lf 

13c0 

20 

cc 

cd 

4c 

d8 

cd 

20 

03 

c6 

l4d0 

19 

a5 

22 

85 

la 

60 

18 

a5 

45 

15e0 

ad 

07 

02 

85 

22 

20 

43 

lc 

ab 

13c8 

13 

2c 

cc 

19 

10 

lf 

ad 

cd 

94 

l4d8 

17 

65 

fd 

85 

lb 

a5 

18 

69 

e4 

15e8 

ad 

00 

02 

85 

lf 

ad 

01 

02 

2e 

13 dO 

19 

0a 

18 

65 

ld 

29 

Of 

0a 

Od 

l4e0 

00 

85 

lc 

60 

38 

a5 

17 

e5 

8f 

15f0 

85 

20 

20 

43 

lc 

ad 

02 

02 

31 

13 d8 

Oa 

85 

fb 

a5 

lb 

29 

lf 

4a 

64 

l4e8 

fd 

85 

lb 

a5 

18 

e9 

00 

85 

ff 

15 f 8 

85 

21 

ad 

03 

02 

85 

22 

20 

ef 

13e0 

4a 

4a 

05 

fb 

aa 

bd 

54 

25 

44 

14 fO 

lc 

60 

18 

a5 

19 

65 

fe 

85 

bb 

1600 

43 

lc 

4c 

cO 

15 

a9 

ff 

85 

26 

13e8 

25 

'29 

dO 

01 

60 

8d 

01 

ff 

6d 

l4f8 

ld 

a5 

la 

69 

00 

85 

le 

60 

01 

1608 

00 

aO 

00 

8c 

00 

ff 

b9 

6b 

a8 

13 fO 

aO 

00 

bl 

27 

85 

2b 

a5 

29 

7c 

1500 

38 

a5 

19 

e5 

fe 

85 

ld 

a5 

ea 

1610 

13 

99 

01 

d5 

c8 

cO 

06 

dO 

37 

13 f 8 

: 2c 

10 

14 

30 

0a 

70 

05 

49 

02 

1508 

la 

e9 

00 

85 

le 

60 

8d 

03 

e9 

1618 

: f5 

24 

d7 

30 

03 

20 

2c 

cd 

99 


100 
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1620 : 

a2 

00 

86 

fc 

86 

fb 

a5 

fb 

da 

1628 : 

9d 

00 

08 

a5 

fc 

9d 

00 

09 

4b 

1630 : 

: a9 

50 

20 

2c 

24 

e8 

dO 

ee 

3a 

1638 : 

: a2 

00 

86 

fb 

aO 

00 

a5 

fb 

94 

1640 : 

: 9d 

00 

04 

e8 

eO 

00 

fO 

09 

df 

1648 : 

: c8 

cO 

08 

dO 

fl 

e6 

fb 

dO 

74 

1650 : 

: eb 

a9 

00 

a8 

99 

00 

10 

c8 

90 

1658 : 

: cO 

Oa 

dO 

f8 

8d 

05 

df 

ad 

4c 

1660 : 

: 05 

df 

dO 

Oc 

a9 

ff 

8d 

05 

e5 

1668 : 

: df 

ad 

05 

df 

c9 

ff 

fO 

04 

c3 

1670 : 

: a9 

ff 

dO 

05 

ad 

00 

df 

29 

9a 

1678 : 

: 10 

8d 

2f 

2f 

a9 

01 

8d 

20 

la 

1680 : 

: 0a 

8d 

30 

dO 

85 

56 

85 

57 

47 

1688 : 

: 85 

18 

a2 

18 

a9 

60 

20 

cc 

7d 

1690 : 

: cd 

a9 

62 

8d 

18 

03 

85 

19 

5e 

1698 : 

: a9 

40 

85 

17 

20 

ca 

2b 

a9 

fe 

16a0 : 

: C0 

8d 

10 

14 

20 

lb 

14 

20 

19 

I6a8 : 

: n 

Ob 

8d 

03 

ff 

a2 

80 

8e 

19 

I6b0 : 

: 18 

d4 

8e 

04 

d4 

8e 

Of 

d4 

fe 

I6b8 : 

: a9 

00 

8d 

12 

d4 

8d 

22 

Oa 

5d 

I6c0 : 

: 85 

la 

85 

2d 

e8 

8e 

12 

d4 

4e 

I6c8 : 

: 8d 

01 

ff 

20 

a8 

Oc 

20 

7c 

3e 

I6d0 : 

: 18 

20 

71 

17 

a5 

d4 

a4 

d3 

73 

I6d8 : 

: c9 

58 

dO 

54 

cO 

01 

bO 

50 

03 

16e0 : 

: ea 

ea 

ea 

8d 

03 

ff 

ad 

00 

92 

I6e8 : 

: de 

8d 

01 

ff 

c9 

7f 

fO 

e4 

fl 

16f0 : 

: c9 

6f 

dO 

09 

20 

lc 

19 

20 

4e 

16 f 8 : 

: fO 

20 

4c 

cb 

16 

48 

09 

10 

6d 

1700 : 

: a2 

00 

dd 

fl 

19 

fO 

09 

e8 

67 

1708 : 

: eO 

09 

dO 

f6 

68 

4c 

d4 

16 

e8 

1710 : 

: 8a 

Oa 

aa 

bd 

fa 

19 

8d 

2b 

07 

1718 : 

: 17 

bd 

fb 

19 

8d 

2c 

17 

20 

07 

1720 : 

: lc 

19 

68 

c9 

6f 

bO 

03 

20 

e5 

1728 : 

: fO 

20 

20 

99 

20 

4c 

cb 

16 

23 

1730 : 

: a2 

00 

dd 

64 

22 

fO 

07 

e8 

6e 

1738 : 

; eO 

23 

dO 

f6 

fO 

96 

8a 

Oa 

bf 

1740 : 

: aa 

cO 

01 

fO 

14 

90 

le 

bd 

62 

1748 : 

: 13 

23 

8d 

2b 

17 

bd 

14 

23 

ac 

1750 : 

: 8d 

2c 

17 

20 

lc 

19 

4c 

2a 

cd 

1758 : 

: 17 

bd 

cd 

22 

8d 

2b 

17 

bd 

Of 
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72 

4480 

: 

6d 24 

Oc 

85 fd 

a5 

24 

6d 

2c 

46d8 

: fb 

a5 

fb 

20 

75 

13 

a5 

fb 

27 

4230 

: 65 

29 

c6 

34 

dO 

f6 

20 

5c 

60 

4488 

: 

25 Oc 

85 

fe aO 

00 

20 

Oa 

93 

46eO 

: 49 

ff 

85 

fb 

20 

Oc 

28 

c8 

9e 

4238 

: 29 

20 

75 

29 

c6 

fd 

dO 

e8 

65 

4490 


Oc 25 

29 

fO 06 

20 

5b 

20 

a6 

46e8 

: cO 

c8 

dO 

ed 

60 

a9 

00 

85 

5c 

4240 

: 60 

32 

43 

aO 

42 

b3 

42 

24 

bl 

4498 


4c 9e 

44 

20 64 

20 

20 

c6 

9e 

46 fO 

: la 

a9 

02 

85 

18 

a9 

c7 

85 

09 

4248 

: 4 3 

cO 

45 

e2 

45 

4d 

46 

3c 

e9 

44a0 


13 68 

a8 

68 aa 

60 

a5 

8c 

7c 

46f8 

: 19 

a9 

7f 

85 

17 

60 

00 

00 

eb 

4250 

: 46 

OS 

46 

27 

46 

85 

46 

6f 

99 

44 a8 


c9 fe 

90 

01 60 

ad 

9b 

42 

9b 











4258 

: 46 

3c 

Oa 

lc 

14 

12 

Oe 

15 

f7 

44b0 


29 20 

fO 

Oa ad 

96 

42 

Oa 

13 
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LISTINGS 


Name : 

gredi. 

com 



ObOO Oeal 

ObOO : 

78 

a2 

01 

8e 

6b 

Ob 

e8 

8e 

ab 

0b08 : 

70 

Ob 

ad 

24 

Oc 

85 

52 

ad 

7f 

OblO : 

25 

Oc 

aO 

cO 

a2 

80 

4c 

60 

9c 

0bl8 : 

Ob 

a2 

01 

8e 

2e 

Ob 

e8 

8e 

82 

0b20 : 

33 

Ob 

78 

a9 

82 

85 

51 

aO 

07 

0b28 : 

00 

84 

50 

a2 

7d 

8d 

01 

ff 

lb 

0b30 : 

bl 

50 

8d 

02 

ff 

91 

50 

c8 

Oc 

0b38 : 

dO 

f3 

e6 

51 

ca 

dO 

ee 

4c 

6d 

0b40 : 

7f 

Ob 

a2 

02 

8e 

2e 

Ob 

ca 

4a 

0b48 : 

dO 

d5 

78 

a 2 

02 

8e 

6b 

Ob 

ce 

0b50 : 

ca 

8e 

70 

Ob 

a9 

80 

85 

52 

38 

0b58 : 

a9 

cO 

ae 

24 

Oc 

ac 

25 

Oc 

64 

0 b 60 : 

85 

53 

86 

50 

84 

51 

a2 

40 

18 

0b68 : 

aO 

00 

8d 

01 

ff 

bl 

50 

8d 

76 

0b70 : 

02 

ff 

91 

52 

c8 

cO 

fa 

dO 

4l 

0b78 : 

fl 

20 

83 

Ob 

ca 

dO 

e9 

58 

47 

0b80 : 

4c 

06 

Oc 

98 

18 

65 

52 

85 

e6 

0b88 : 

52 

90 

02 

e6 

53 

98 

18 

65 

a5 

0b90 : 

50 

85 

50 

90 

02 

e6 

51 

60 

26 

0b98 : 

78 

8d 

03 

ff 

ad 

24 

Oc 

85 

cf 

ObaO : 

50 

ad 

25 

Oc 

85 

51 

a9 

00 

lb 

0ba8 : 

85 

52 

85 

53 

a9 

40 

85 

34 

3d 

ObbO : 

a2 

12 

a5 

53 

8e 

00 

d6 

2c 

cc 

0bb8 : 

00 

d6 

10 

fb 

8d 

01 

d6 

e8 

b5 

ObcO : 

a5 

52 

8e 

00 

d6 

2c 

00 

d6 

ae 

0bc8 : 

10 

fb 

8d 

01 

d6 

aO 

00 

8d 

e7 

ObdO : 

: 02 

ff 

bl 

50 

8d 

03 

ff 

a2 

7e 

0bd8 : 

: lf 

8e 

00 

d6 

2c 

00 

d6 

10 

57 

ObeO : 

fb 

8d 

01 

d6 

c8 

cO 

fa 

dO 

dd 

0be8 : 

: e6 

20 

8d 

Ob 

c6 

34 

dO 

dd 

bO 

ObfO : 

: 4c 

7f 

Ob 

20 

98 

Ob 

4c 

4a 

6a 

0bf8 : 

Ob 

8d 

02 

ff 

bl 

fb 

4c 

06 

83 

OcOO : 

:0c 

8d 

02 

ff 

91 

fb 

8d 

01 

84 

0e08 : 

ff 

60 

8d 

02 

ff 

bl 

fd 

4c 

f9 

OelO : 

06 

Oc 

8d 

02 

ff 

91 

fd 

4c 

dd 

0cl8 : 

06 

Oc 

8d 

02 

ff 

11 

fb 

91 

64 

0c20 : 

: fb 

4c 

06 

Oc 

00 

82 

eO 

bf 

5c 

0c28 : 

: 40 

40 

40 

40 

40 

40 

40 

40 

28 

0e30 : 

: 40 

40 

40 

40 

40 

00 

00 

00 

ad 

0c38 : 

: 40 

80 

80 

80 

80 

80 

80 

80 

f8 

0c40 : 

: 80 

80 

80 

40 

00 

00 

00 

00 

29 

0c48 : 

: 40 

80 

80 

80 

80 

80 

80 

80 

08 

0c50 : 

; 80 

40 

40 

00 

00 

00 

00 

00 

01 

0c58 : 

: 40 

80 

80 

80 

80 

80 

80 

80 

18 

0c60 : 

: 80 

40 

40 

00 

00 

00 

00 

00 

11 

0c68 : 

: 40 

80 

40 

40 

40 

80 

80 

80 

Oc 

0c70 : 

: 80 

80 

80 

40 

40 

00 

00 

00 

5d 

0c78 : 

: 40 

40 

40 

00 

00 

40 

40 

80 

ed 

0e80 : 

: 80 

80 

80 

80 

80 

40 

40 

00 

7c 

0c88 : 

: 00 

00 

00 

00 

00 

00 

00 

40 

09 

0o90 : 

: 40 

80 

80 

80 

80 

80 

40 

40 

ce 

0c98 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

99 

OeaO : 

: 00 

40 

40 

40 

40 

40 

40 

00 

eO 

0ea8 : 

: a5 

17 

48 

a6 

18 

a5 

19 

a4 

lc 

OcbO : 

: la 

4c 

c9 

Oc 

a5 

lb 

48 

a6 

86 

0cb8 : 

: lc 

a5 

ld 

a4 

le 

4c 

c9 

Oc 

06 

OceO : 

: a5 

lf 

48 

a6 

20 

a5 

21 

a4 

d9 

0ce8 : 

: 22 

48 

ad 

cd 

19 

Oa 

85 

fb 

23 

OedO 

: 68 

18 

65 

fb 

8d 

8b 

Od 

98 

b8 

0 cd 8 

: 69 

00 

8d 

8c 

Od 

68 

8d 

8d 

9c 

OoeO 

: Od 

8e 

8e 

Od 

ad 

91 

Od 

dO 

b7 

0ee8 

: 01 

60 

20 

98 

Oe 

ad 

8e 

Od 

d7 

OcfO 

: c9 

02 

90 

Od 

ad 

8d 

Od 

c9 

8f 

0cf8 

: 08 

90 

06 

a9 

00 

a2 

3c 

dO 

a7 

OdOO 

: 04 

a9 

42 

a2 

3c 

8d 

8f 

Od 

46 

0d08 

: 8e 

90 

Od 

ad 

8d 

Od 

ae 

8e 

fO 

OdlO 

: Od 

aO 

03 

20 

92 

Od 

ad 

8b 

92 

0dl8 

: Od 

ae 

8c 

Od 

aO 

Oa 

20 

92 

41 

0d20 

: Od 

ad 

8f 

Od 

ae 

90 

Od 

85 

38 

0d28 

: fb 

86 

fc 

a9 

00 

85 

ff 

a4 

50 

0d30 

: ff 

be 

7d 

Od 

a9 

00 

8d 

5f 

lf 

0d38 

: Od 

a9 

dO 

8d 

60 

Od 

18 

ad 

2a 

0d40 

: 5f 

Od 

69 

08 

8d 

5f 

Od 

90 

aa 


0d48 : 

03 

ee 

60 

Od 

ca 

dO 

ef 

a5 

ba 

0d50 : 

fb 

85 

23 

a5 

fc 

85 

24 

aO 

59 

Od58 : 

00 

a9 

01 

8d 

00 

ff 

b9 

00 

06 

0d60 : 

dO 

20 

75 

13 

20 

Oc 

28 

c8 

95 

0d68 : 

cO 

08 

dO 

ed 

20 

68 

37 

a4 

8a 

0d70 : 

ff 

c8 

84 

ff 

cO 

Oe 

dO 

b7 

23 

0d78 : 

60 

Oa 

00 

64 

00 

20 

18 

3d 

46 

0d80 : 

30 

30 

30 

20 

20 

19 

3d 

30 

f9 

0d88 : 

30 

30 

20 

00 

00 

00 

00 

bO 

3a 

0d90 : 

: 3b 

00 

85 

fd 

86 

fe 

84 

fc 

59 

0d98 : 

aO 

03 

a2 

00 

38 

a5 

fd 

f9 

ff 

OdaO : 

: 78 

Od 

48 

88 

a5 

fe 

f9 

7a 

fl 

0da8 : 

: Od 

90 

09 

85 

fe 

68 

85 

fd 

36 

OdbO : 

: e8 

c8 

dO 

e8 

68 

8a 

84 

fb 

32 

0db8 : 

: 09 

30 

a4 

fc 

99 

7d 

Od 

e6 

29 

OdcO : 

: fc 

a4 

fb 

88 

10 

d4 

a4 

fc 

52 

0dc8 : 

: a5 

fd 

09 

30 

99 

7d 

Od 

60 

2f 

OddO : 

: 8d 

eb 

Od 

8e 

fl 

Od 

8c 

f5 

Oe 

0dd8 : 

: Od 

ad 

8f 

Od 

85 

23 

ad 

90 

8b 

OdeO : 

: Od 

85 

24 

a2 

08 

aO 

00 

18 

c3 

0de8 : 

: a5 

23 

69 

80 

85 

25 

a5 

24 

ea 

OdfO : 

: 69 

cO 

85 

26 

öd 

01 

ff 

bl 

24 

0df8 : 

: 25 

8d 

01 

ff 

20 

75 

13 

20 

5e 

OeOO : 

: 18 

28 

c8 

CO 

Oe 

dO 

ed 

a9 

e9 

0e08 : 

: 42 

20 

Oe 

28 

ca 

dO 

d6 

60 

32 

OelO : 

: a9 

00 

85 

fb 

a5 

30 

48 

a6 

e4 

Oe 18 : 

: 31 

a5 

32 

a4 

33 

4c 

dl 

Oc 

32 

0e20 : 

: a9 

13 

8d 

7e 

Od 

a9 

05 

8d 

d3 

0e28 : 

: 85 

Od 

a9 

00 

85 

fb 

20 

3b 

cd 

0e30 : 

: Oe 

a2 

18 

8e 

7e 

Od 

e8 

8e 

78 

Oe38 : 

: 85 

Od 

60 

ad 

87 

19 

48 

ae 

dl 

0e40 : 

: 88 

19 

ad 

89 

19 

ac 

8a 

19 

45 

0e48 : 

: 4c 

dl 

Oc 

ae 

ba 

2c 

bd 

9c 

93 

Oe50 : 

: 2c 

48 

bd 

bO 

2c 

48 

bd 

a6 

6f 

Oe58 : 

: 2c 

aa 

aO 

00 

68 

4c 

c9 

Oc 

2a 

0e60 : 

: 20 

72 

Oe 

20 

e6 

29 

4c 

a8 

7b 

0e68 : 
0e70 : 

;a 

#s » 

<JK 

4c 

Oc 

e9 

fl 

0e78 : 

: aO 

02 

20 

dO 

Od 

8d 

03 

ff 

85 

0e80 : 

: 60 

ad 

91 

Od 

dO 

09 

ce 

91 

71 

0e88 : 

: Od 

20 

a8 

Oc 

4c 

69 

34 

ee 

10 

0e90 : 

: 91 

Od 

20 

98 

Oe 

4c 

69 

34 

14 

0e98 : 

: a9 

80 

a2 

cO 

aO 

01 

4c 

dO 

27 

OeaO ; 

: Od 

a9 

ef 

20 

18 

b2 

20 

12 

3d 
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Name : gredi klein.zs 5a4l 5e20 


5a4l : 

09 

01 

09 

02 

01 

06 

01 

06 

9e 

5a49 : 

01 

05 

01 

06 

01 

05 

01 

04 

12 

5a51 : 

01 

05 

01 

07 

01 

03 

01 

05 

2 c 

5a59 : 

01 

06 

01 

03 

01 

08 

01 

07 

61 

5a6l : 

01 

05 

01 

06 

01 

06 

01 

05 

34 

5a69 : 

01 

05 

01 

04 

01 

07 

01 

07 

08 

5a71 : 

: 01 

07 

01 

05 

01 

06 

01 

05 

25 

5a79 : 

: 01 

06 

01 

05 

01 

07 

01 

06 

b7 

5a81 : 

: 01 

03 

01 

05 

01 

05 

01 

06 

2d 

5a89 : 

: 01 

05 

01 

05 

01 

05 

01 

05 

34 

5a91 : 

: 01 

05 

01 

07 

01 

05 

01 

03 

78 

5a99 : 

: 01 

03 

01 

05 

01 

05 

01 

07 

47 

5 aal : 

: 01 

04 

01 

02 

01 

08 

01 

06 

85 

5aa9 : 

: 01 

06 

01 

06 

01 

06 

01 

06 

ff 

5abl : 

: 01 

06 

01 

08 

01 

03 

01 

06 

2f 

5ab9 : 

: 01 

07 

01 

06 

01 

08 

01 

08 

a3 

5acl : 

: 01 

06 

01 

07 

01 

06 

01 

07 

39 

5ac9 : 

: 01 

06 

01 

07 

01 

08 

01 

08 

53 

5adl : 

: 01 

08 

01 

07 

01 

07 

01 

07 

52 

5ad9 : 

: 01 

08 

01 

06 

01 

08 

01 

05 

3e 

5ael : 

: 01 

02 

01 

05 

01 

06 

01 

07 

17 

5ae9 : 

: 01 

07 

01 

05 

01 

03 

01 

04 

83 


5afl : 

01 

04 

01 

05 

01 

05 

01 

03 

18 

5af9 : 

01 

03 

01 

05 

01 

07 

01 

05 

b3 

5b01 : 

01 

04 

01 

db 

Oa 

00 

70 

08 

33 

5b09 : 

78 

88 

7c 

00 

00 

cO 

40 

78 

de 

5bll : 

44 

44 

44 

78 

db 

03 

00 

78 

5e 

5bl9 : 

80 

80 

80 

78 

00 

00 

18 

08 

79 

5b21 : 

78 

88 

88 

88 

7c 

db 

03 

00 

c3 

5b29 : 

70 

88 

f8 

80 

70 

00 

00 

30 

93 

5b31 : 

40 

40 

fO 

40 

40 

eO 

db 

03 

56 

5b39 : 

00 

78 

88 

88 

88 

78 

08 

fO 

f7 

5b4l : 

cO 

40 

78 

44 

44 

44 

ee 

00 

ea 

5b49 : 

00 

40 

00 

cO 

40 

40 

40 

eO 

4a 

5b51 : 

00 

00 

10 

00 

38 

db 

04 

10 

e8 

5b 59 : 

eO 

cO 

40 

48 

50 

60 

50 

cc 

95 

5b6l : 

00 

00 

cO 

db 

04 

40 

eO 

db 

8a 

5b69 : 

03 

00 

f6 

49 

49 

49 

c9 

db 

11 

5b71 : 

03 

00 

f8 

44 

44 

44 

ee 

db 

15 

5b79 : 

03 

00 

70 

88 

88 

88 

70 

db 

fO 

5b81 : 

03 

00 

f8 

44 

44 

44 

78 

40 

14 

5b89 : 

eO 

00 

00 

7c 

88 

88 

88 

78 

d9 

5b91 : 

08 

lc 

00 

00 

d8 

60 

40 

40 

ba 

5b99 : 

eO 

db 

03 

00 

78 

80 

70 

08 

85 

5bal : 

fO 

00 

00 

40 

40 

fO 

40 

40 

a7 

5ba9 : 

40 

30 

db 

03 

00 

c4 

44 

44 

18 

5bbl : 

44 

3e 

db 

03 

00 

ee 

44 

28 

44 

5bb9 : 

28 

10 

db 

03 

00 

82 

82 

92 

84 

5bcl : 

aa 

44 

db 

03 

00 

88 

50 

20 

aa 

5bc9 : 

50 

88 

db 

03 

00 

c4 

44 

44 

74 

5bdl : 

28 

10 

20 

40 

00 

00 

f8 

90 

17 

5bd9 : 

20 

48 

f8 

00 

00 

50 

00 

70 

bf 

5bel : 

08 

78 

88 

7c 

00 

00 

50 

00 

18 

5be9 : 

70 

88 

88 

88 

70 

00 

00 

28 

28 

5b fl : 

00 

c4 

44 

44 

44 

3e 

00 

00 

23 

5bf9 : 

38 

44 

44 

48 

44 

44 

48 

cO 

77 

5c01 : 

00 

40 

cO 

db 

03 

40 

eO 

00 

83 

5c09 : 

00 

70 

88 

08 

10 

20 

48 

f8 

7a 

5ell : 

00 

00 

f8 

90 

20 

10 

08 

88 

15 

5cl9 : 

70 

00 

00 

08 

18 

28 

48 

fc 

68 

5c21 : 

08 

lc 

00 

00 

f8 

80 

fO 

08 

9f 

5c29 : 

08 

88 

70 

00 

00 

30 

40 

80 

15 

5c31 : 

fO 

88 

88 

70 

00 

00 

f8 

88 

8a 

5c39 : 

10 

20 

20 

20 

70 

00 

00 

70 

4d 

5c4l : 

88 

88 

70 

88 

88 

70 

00 

00 

47 

5c49 : 

70 

88 

88 

78 

08 

10 

60 

00 

bl 

5c51 : 

00 

38 

44 

8a 

92 

a 2 

44 

38 

8f 

5c59 : 

db 

07 

00 

d8 

48 

90 

db 

04 

53 

5c6l : 

00 

60 

60 

20 

40 

db 

04 

00 

aO 

5c69 : 

60 

60 

db 

03 

00 

f8 

00 

f8 

Oa 

5c71 : 

db 

04 

00 

20 

a8 

70 

70 

a8 

74 

5c79 : 

20 

00 

00 

02 

04 

08 

10 

20 

db 

5c81 : 

40 

80 

00 

00 

10 

20 

40 

80 

06 

5c89 : 

40 

20 

10 

db 

Oa 

00 

3c 

18 

lb 

5c91 : 

24 

24 

7e 

42 

e7 

00 

00 

f8 

20 

5c99 : 

44 

44 

78 

44 

44 

f8 

00 

00 

b2 

5cal : 

78 

84 

80 

80 

80 

84 

78 

00 

9a 

5ca9 : 

00 

f8 

db 

04 

44 

f8 

00 

00 

a9 

5cbl : 

fc 

44 

40 

70 

40 

44 

fc 

00 

08 

5cb9 : 

00 

fc 

44 

40 

70 

40 

40 

eO 

lc 

5ccl : 

00 

00 

78 

84 

80 

9c 

84 

84 

78 

5cc9 : 

78 

00 

00 

e7 

42 

42 

7e 

42 

f3 

5cdl : 

42 

e7 

00 

00 

eO 

db 

04 

40 

84 

5cd9 : 

eO 

00 

00 

lc 

db 

03 

08 

88 

44 

5cel : 

70 

00 

00 

e6 

48 

50 

60 

50 

57 

5ce9 : 

48 

e6 

00 

00 

eO 

db 

03 

40 

le 

5c fl : 

44 

fc 

00 

00 

c3 

66 

5a 

42 

11 

5cf9 : 

42 

42 

e7 

00 

00 

c7 

62 

52 

c3 

5d01 : 

4a 

46 

42 

e2 

00 

00 

78 

db 

f5 

5d09 : 

04 

84 

78 

00 

00 

fc 

42 

42 

e3 

5dll : 

7c 

40 

40 

eO 

00 

00 

78 

84 

c4 

5dl9 : 

84 

84 

94 

88 

74 

00 

00 

fc 

57 

5d21 : 

42 

42 

7c 

48 

44 

e2 

00 

00 

08 

5d29 : 

78 

84 

80 

78 

04 

84 

78 

00 

59 

5d31 : 

00 

fe 

92 

db 

03 

10 

38 

00 

62 

5d39 : 

00 

e7 

db 

04 

42 

3c 

00 

00 

aa 

5d4l : 

e7 

42 

42 

24 

24 

18 

3c 

00 

52 


108 
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LISTINGS 


5d49 : 

: 00 

e7 

42 

42 

5a 

5a 

24 

24 

67 

5d51 : 

: 00 

00 

ee 

44 

28 

10 

28 

44 

c2 

5d59 : 

: ee 

00 

00 

ee 

44 

44 

28 

10 

4c 

5d6l : 

: 10 

38 

00 

00 

fe 

84 

08 

10 

e2 

5d69 : 

: 20 

42 

fe 

00 

00 

bd 

18 

24 

01 

5d71 : 

: 24 

7e 

42 

e7 

00 

00 

84 

78 

65 

5d79 : 

: db 

03 

84 

78 

00 

00 

42 

00 

Of 

5d81 : 

: e7 

42 

42 

42 

3c 

00 

00 

00 

26 

5d89 : 

: 20 

20 

f8 

20 

20 

00 

00 

00 

fe 

5d91 : 

: db 

03 

40 

00 

00 

40 

00 

00 

00 

5d99 : 

: d8 

48 

90 

db 

05 

00 

48 

48 

37 

5dal : 

: fc 

48 

fc 

48 

48 

00 

00 

10 

ae 

5da9 : 

: 7e 

90 

7c 

12 

fc 

10 

00 

00 

21 

5dbl : 

: e2 

c4 

08 

10 

20 

46 

86 

00 

28 

5db9 : 

: 00 

60 

90 

aO 

40 

a8 

90 

68 

7e 

5dol : 

: 00 

00 

60 

20 

40 

db 

05 

00 

d4 

5do9 : 

: 20 

40 

80 

80 

80 

40 

20 

00 

c4 

5ddl : 

: 00 

40 

20 

10 

10 

10 

20 

40 

7e 

5dd9 : 

: 00 

00 

78 

80 

70 

88 

70 

08 

25 

5del : 

: fO 

db 

04 

00 

f8 

db 

06 

00 

46 

5de9 : 

60 

60 

00 

60 

60 

20 

40 

00 

8e 

5dfl : 

: 00 

60 

60 

00 

60 

60 

00 

00 

43 

5df9 : 

20 

70 

f8 

db 

03 

20 

00 

00 

3c 

5e01 : 

00 

20 

60 

fe 

60 

20 

00 

00 

10 

5e09 : 

00 

70 

88 

08 

10 

20 

00 

20 

a7 

5ell : 

00 

00 

80 

40 

20 

10 

20 

40 

bd 

5el9 : 

80 

da 

2d 

eO 

00 

09 

Od 

00 

ea 


Listing 4. Ein Zeichensatz zu 
»Gredi«, bitte mit dem MSE 
Seite 158 eingeben 


Name : fill.00 4641 4a3b 


4641 : 

db 

3f 

ff 

db 

03 

aa 

db 

03 

32 

4649 : 

55 

db 

03 

aa 

db 

03 

55 

db 

85 

4651 : 

03 

aa 

db 

03 

55 

db 

03 

aa 

96 

4659 : 

db 

03 

55 

db 

03 

aa 

db 

03 

82 

4661 : 

55 

db 

03 

aa 

db 

03 

55 

db 

9d 

4669 : 

03 

aa 

db 

03 

55 

db 

03 

aa 

ae 

4671 : 

db 

03 

55 

db 

03 

88 

db 

03 

89 

4679 : 

22 

db 

03 

88 

db 

03 

22 

db 

71 

4681 : 

03 

88 

db 

03 

22 

db 

03 

88 

3e 

4689 : 

db 

03 

22 

db 

03 

88 

db 

03 

d4 

4691 : 

22 

db 

03 

88 

db 

03 

22 

db 

89 

4699 : 

03 

88 

db 

03 

22 

db 

03 

88 

56 

46al : 

db 

03 

22 

db 

03 

88 

db 

03 

ec 

46a9 : 

00 

db 

03 

22 

db 

03 

00 

db 

29 

46b 1 : 

03 

88 

db 

03 

00 

db 

03 

22 

7f 

46b9 : 

db 

03 

00 

db 

03 

88 

db 

03 

7b 

46cl : 

00 

db 

03 

22 

db 

03 

00 

db 

41 

46c9 : 

03 

88 

db 

03 

00 

db 

03 

22 

97 

46dl : 

db 

03 

00 

db 

03 

80 

db 

03 

53 

46d9 : 

00 

db 

03 

08 

db 

03 

00 

db 

16 

46el : 

03 

80 

db 

03 

00 

db 

03 

08 

77 

46e9 : 

db 

03 

00 

db 

03 

80 

db 

03 

6b 

46fl : 

00 

db 

03 

08 

db 

03 

00 

db 

2e 

46 f9 : 

03 

80 

db 

03 

00 

db 

03 

08 

8f 

4701 : 

db 

03 

00 

80 

00 

80 

db 

05 

eb 

4709 : 

00 

80 

00 

80 

db 

03 

00 

80 

30 

4711 : 

00 

80 

db 

05 

00 

80 

00 

80 

ee 

4719 : 

db 

03 

00 

80 

00 

80 

db 

05 

03 

4721 : 

00 

80 

00 

80 

db 

03 

00 

80 

48 

4729 : 

00 

80 

db 

05 

00 

80 

00 

80 

06 

4731 : 

db 

03 

00 

db 

03 

81 

db 

03 

bb 

4739 : 

el 

db 

03 

60 

db 

03 

00 

db 

62 

4741 : 

03 

Oc 

db 

03 

3c 

db 

03 

30 

bl 

4749 : 

db 

03 

00 

db 

03 

81 

db 

03 

d3 

4751 : 

el 

db 

03 

60 

db 

03 

00 

db 

7a 

4759 : 

03 

Oc 

db 

03 

3c 

db 

03 

30 

c9 

4761 : 

db 

03 

00 

db 

03 

08 

db 

03 

lf 

4769 : 

80 

db 

03 

40 

db 

03 

04 

db 

3d 

4771 : 

03 

08 

db 

03 

80 

db 

03 

40 

43 


4779 


db 

03 

04 

db 

03 

08 

db 

03 

38 

4781 


80 

db 

03 

40 

db 

03 

04 

db 

55 

4789 


03 

08 

db 

03 

80 

db 

03 

40 

5b 

4791 


db 

03 

04 

db 

03 

01 

db 

03 

18 

4799 

: 

80 

db 

03 

40 

db 

03 

00 

db 

5d 

47al 


03 

04 

db 

03 

08 

db 

03 

10 

89 

47a9 


db 

03 

00 

db 

03 

01 

db 

03 

2f 

47b 1 

: 

80 

db 

03 

40 

db 

03 

00 

db 

75 

47b9 

: 

03 

04 

db 

03 

08 

db 

03 

10 

al 

47cl 

! 

db 

03 

00 

db 

03 

41 

db 

03 

49 

47c9 


aO 

db 

03 

50 

db 

03 

00 

db 

af 

47dl 

: 

03 

05 

db 

03 

Oa 

db 

03 

14 

62 

47d9 


db 

03 

00 

db 

03 

41 

db 

03 

61 

47el 

: 

aO 

db 

03 

50 

db 

03 

00 

db 

c7 

47e9 


03 

05 

db 

03 

Oa 

db 

03 

14 

7a 

47 fl 


db 

03 

00 

db 

03 

03 

db 

03 

87 

47f9 


06 

db 

03 

Oc 

db 

03 

18 

db 

ld 

4801 


03 

3c 

db 

03 

66 

db 

03 

c3 

52 

4809 


db 

03 

81 

db 

03 

03 

db 

03 

ff 

4811 

: 

06 

db 

03 

Oc 

db 

03 

18 

db 

35 

4819 

: 

03 

3c 

db 

03 

66 

db 

03 

c3 

6a 

4821 

: 

db 

03 

81 

00 

Of 

00 

Of 

00 

Ob 

4829 

: 

3c 

00 

3c 

00 

fO 

00 

fO 

03 

4d 

4831 

: 

cO 

03 

cO 

Of 

fO 

Of 

fO 

db 

88 

4839 

i* 

03 

3c 

fO 

Of 

fO 

Of 

cO 

03 

09 

4841 

: 

cO 

03 

00 

Of 

00 

Of 

00 

3c 

56 

4849 

: 

00 

3c 

00 

fO 

00 

fO 

03 

cO 

9b 

4851 

: 

03 

cO 

Of 

fO 

Of 

fO 

db 

03 

84 

4859 


3c 

fO 

Of 

fO 

Of 

cO 

03 

cO 

74 

4861 


03 

Of 

fO 

Of 

fO 

Of 

fO 

Of 

73 

4869 


fO 

db 

07 

3c 

fO 

Of 

fO 

Of 

fa 

4871 


fO 

Of 

fO 

Of 

cO 

03 

cO 

03 

34 

4879 

: 

cO 

03 

cO 

03 

00 

Of 

00 

Of 

e2 

4881 

: 

00 

Of 

00 

Of 

00 

3c 

00 

3c 

45 

4889 

: 

00 

3c 

00 

3c 

00 

fO 

00 

fO 

98 

4891 

: 

00 

fO 

00 

fO 

03 

cO 

03 

cO 

eb 

4899 




» 




Of 

fO 

6c 


„1 



48al 

• 



Of 




'3c 

fO 

d3 

48a9 

: 

Of 

fO 

Of 

fO 

Of 

fO 

Of 

cO 

48 

48bl 

: 

03 

cO 

03 

cO 

03 

cO 

03 

00 

2f 

48b9 

: 

Of 

00 

Of 

00 

Of 

00 

Of 

00 

b9 

48el 

: 

3c 

00 

3c 

00 

3c 

00 

3c 

00 

cl 

48c9 


fO 

00 

fO 

00 

fO 

00 

fO 

03 

ce 

48dl 

: 

cO 

03 

cO 

03 

cO 

03 

cO 

Oc 

e3 

48d9 


cO 

Oc 

cO 

33 

00 

33 

00 

cc 

69 

48el 


00 

cc 

00 

30 

03 

30 

03 

30 

6c 

48e9 


Oc 

30 

Oc 

cc 

33 

cc 

33 

33 

77 

48 fl 

: 

cc 

33 

cc 

Oc 

30 

Oc 

30 

Oc 

48 

48 f9 


cO 

Oc 

cO 

33 

00 

33 

00 

cc 

89 

4901 

: 

00 

cc 

00 

30 

03 

30 

03 

30 

8c 

4909 

: 

Oc 

30 

Oc 

cc 

33 

cc 

33 

33 

97 

4911 

: 

cc 

33 

cc 

Oc 

30 

Oc 

30 

db 

07 

4919 

: 

04 

00 

07 

00 

00 

00 

68 

bO 

e2 

4921 

: 

00 

00 

90 

48 

00 

01 

00 

04 

5f 

4929 

: 

00 

00 

86 

08 

00 

00 

60 

30 

ae 

4931 

: 

00 

00 

82 

08 

00 

00 

65 

30 

c9 

4939 

: 

00 

00 

18 

cO 

00 

00 

02 

Oe 

7c 

4941 


00 

00 

e2 

31 

00 

01 

la 

cO 

12 

4949 

: 

00 

00 

07 

80 

00 

00 

03 

db 

df 

4951 

: 

Oe 

00 

lf 

80 

00 

le 

60 

67 

78 

4959 

: 

80 

61 

80 

18 

60 

80 

00 

00 

b7 

4961 

: 

18 

60 

le 

00 

60 

le 

00 

07 

36 

4969 

; 

80 

60 

06 

00 

60 

le 

19 

87 

05 

4971 

i 

80 

01 

eO 

78 

00 

00 

06 

00 

dl 

4979 

: 

7e 

7e 

06 

07 

81 

81 

e6 

78 

4a 

4981 

: 

00 

00 

lf 

eO 

00 

00 

07 

80 

82 

4989 

: 

00 

db 

03 

3e 

db 

03 

lf 

db 

09 

4991 

: 

03 

8d 

db 

03 

d8 

db 

03 

fl 

Oe 

4999 

: 

db 

03 

e3 

db 

03 

c4 

db 

03 

36 

49al 

: 

4c 

db 

03 

3e 

db 

03 

lf 

db 

6d 

49a9 

: 

03 

8d 

db 

03 

d8 

db 

03 

fl 

26 

49b 1 


db 

03 

e3 

db 

03 

c4 

db 

03 

4e 

49b9 


4c 

fc 

Of 

fc 

Of 

ff 

03 

ff 

e4 

49cl 


03 

f3 

cO 

f3 

cO 

cO 

f3 

cO 

dO 

49c9 


f3 

03 

ff 

03 

ff 

Of 

fc 

Of 

29 


49dl 

: fc 

30 

fO 

30 

fO 

fO 

30 

fO 

61 

49d9 

: 30 

fc 

Of 

fc 

Of 

ff 

03 

ff 

e8 

49el 

: 03 

f3 

cO 

f3 

cO 

cO 

f3 

cO 

fO 

49e9 

: f3 

03 

ff 

03 

ff 

Of 

fc 

Of 

49 

49 fl 

: fc 

30 

fO 

30 

fO 

fO 

30 

fO 

81 

49f9 

: 30 

Of 

fc 

Of 

fc 

Of 

fc 

Of 

2c 

4a01 

: fc 

03 

ff 

03 

ff 

03 

ff 

03 

fd 

4a09 

: ff 

cO 

f3 

cO 

f3 

cO 

f3 

cO 

14 

4all 

: f3 

f3 

cO 

f3 

cO 

f3 

cO 

f3 

43 

4al9 

: cO 

ff 

03 

ff 

03 

ff 

03 

ff 

d6 

4a21 

: 03 

fc 

Of 

fc 

Of 

fc 

Of 

fc 

15 

4a29 

: Of 

fO 

30 

fO 

30 

fO 

30 

fO 

08 

4a31 

: 30 

30 

fO 

30 

fO 

30 

fO 

30 

70 

4a39 

: fO 

Od 

ff 

ff 

ff 

00 

00 

00 

bO 


Listing 5. Das erste Fillmuster, 
das mit dem MSE, Seite 158 
eingegeben wird 


Name : f111.01 4641 4ab5 


4641 

: db 

3f 

ff 

lf 

eO 

lf 

eO 

7f 

29 

4649 

: 80 

7f 

80 

ff 

00 

ff 

00 

fe 

a7 

4651 

: 00 

fe 

00 

fc 

00 

fc 

00 

7c 

51 

4659 

: 00 

7c 

00 

3e 

00 

3e 

00 

Of 

6f 

4661 

: 80 

Of 

80 

01 

fO 

01 

fO 

00 

84 

4669 

: 7c 

00 

7c 

00 

3e 

00 

3e 

00 

el 

4671 

: 3f 

00 

3f 

00 

7f 

00 

7f 

00 

76 

4679 

: ff 

00 

ff 

01 

fe 

01 

fe 

07 

9a 

4681 

: f8 

07 

f8 

lf 

eO 

lf 

eO 

ff 

a9 

4689 

: 00 

ff 

00 

fc 

00 

fc 

00 

3e 

8d 

4691 

: 00 

3e 

00 

01 

fO 

01 

fO 

00 

ab 

4699 

: 3e 

00 

3e 

00 

7f 

00 

7f 

01 

5f 

46al 

: fe 

01 

fe 

lf 

eO 

lf 

eO 

ff 

4e 

46a9 

: 00 

ff 

00 

fc 

00 

fc 

00 

3e 

ad 

46bl 

: 00 

3e 

00 

01 

fO 

01 

fO 

00 

cb 

46b9 

: 3e 

00 

3e 

00 

7f 

00 

7f 

01 

7f 

46cl 

: fe 

01 

fe 

03 

cO 

03 

cO 

Oe 

a3 

46c9 

: fO 

Oe 

fO 

3c 

fc 

3c 

fc 

fl 

Od 

46dl 

: ff 

fl 

ff 

c3 

ff 

c3 

ff 

8c 

78 

46d9 

: 3f 

8c 

3f 

bO 

Of 

bO 

Of 

cO 

78 

46el 

: 03 

cO 

03 

cO 

03 

cO 

03 

fO 

4l 

46e9 

: Od 

fO 

Od 

fc 

31 

fc 

31 

ff 

11 

46fl 

: c3 

ff 

c3 

ff 

8f 

ff 

8f 

3f 

5a 

46f9 

: 3c 

3f 

3c 

Of 

70 

Of 

70 

03 

Od 

4701 

: cO 

03 

cO 

00 

Of 

fO 

00 

00 

eb 

4709 

: f3 

ff 

00 

Of 

03 

ff 

fO 

fO 

b4 

4711 

: Of 

ff 

ff 

cO 

ff 

ff 

ff 

Of 

56 

4719 

: fO 

Of 

ff 

3f 

00 

00 

ff 

fO 

5a 

4721 

: 00 

00 

Of 

fO 

00 

00 

Of 

ff 

3f 

4729 

: 00 

00 

fc 

ff 

fO 

Of 

fO 

ff 

b4 

4731 

: ff 

ff 

03 

ff 

ff 

fO 

Of 

Of 

d2 

4739 

: ff 

cd 

fO 

00 

ff 

cf 

00 

00 

53 

4741 

: Of 

fO 

00 

07 

eO 

07 

eO 

lf 

bl 

4749 

: f8 

lf 

es 

7c 

3e 

7c 

3e 

fO 

41 

4751 

: Of 

fO 

Of 

eO 

07 

eO 

07 

f8 

3e 

4759 

: lf 

f8 

if 

3e 

7c 

3e 

7c 

Of 

4e 

4761 

: fO 

Of 

fO 

07 

eO 

07 

eO 

lf 

fe 

4769 

: f8 

lf 

f8 

7c 

3e 

7c 

3e 

fO 

61 

4771 

: Of 

fO 

Of 

eO 

07 

eO 

07 

f8 

5e 

4779 

: lf 

f8 

lf 

3e 

7c 

3e 

7c 

Of 

6e 

4781 

: fO 

Of 

fO 

00 

3f 

fc 

00 

00 

11 

4789 

: ff 

ff 

00 

03 

ff 

ff 

cO 

Of 

09 

4791 

: fc 

3f 

fO 

3f 

fO 

Of 

fc 

ff 

cc 

4799 

: cO 

03 

ff 

ff 

00 

00 

ff 

fc 

d5 

47al 

: 00 

00 

3f 

fc 

00 

00 

3f 

ff 

Oe 

47a9 

: 00 

00 

ff 

ff 

cO 

03 

ff 

3f 

4c 

47bl 

: fO 

Of 

fc 

Of 

fc 

3f 

fO 

03 

dd 


Listing 6. Mit diesem Fillmuster 
können Sie weitere Experimente 
durchführen. Eingabe mit dem 
MSE, Seite 158 
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LISTINGS 


47b9 

: fe 

ff 

cO 

00 

ff 

ff 

00 

00 

e7 

47cl 

: 3f 

fo 

00 

db 

Ob 

03 

db 

03 

38 

47c9 

: ff 

db 

Ob 

30 

db 

03 

ff 

db 

Oc 

47dl 

: Ob 

03 

db 

03 

ff 

db 

Ob 

30 

20 

47d9 

: db 

07 

ff 

00 

Of 

00 

Of 

00 

65 

47el 

: Of 

00 

Of 

00 

Of 

00 

Of 

db 

99 

47e9 

: 03 

ff 

Of 

00 

Of 

00 

Of 

00 

dd 

47fl 

: Of 

00 

Of 

00 

Of 

00 

db 

03 

2b 

47 f 9 

: ff 

00 

Of 

00 

Of 

00 

Of 

00 

e9 

4801 

: Of 

00 

Of 

00 

Of 

db 

03 

ff 

bO 

4809 

: Of 

00 

Of 

00 

Of 

00 

Of 

00 

09 

4811 

: Of 

00 

Of 

00 

fO 

00 

00 

Of 

11 

4819 

: fO 

00 

00 

Of 

fO 

00 

00 

Of 

18 

4821 

: fO 

00 

00 

Of 

fO 

00 

00 

Of 

20 

4829 

: fO 

00 

00 

Of 

db 

07 

ff 

00 

fl 

4831 

: Of 

fO 

00 

00 

Of 

fO 

00 

00 

31 

4839 

: Of 

fO 

00 

00 

Of 

fO 

00 

00 

39 

4841 

: Of 

fO 

00 

00 

Of 

fO 

00 

db 

f9 

4849 

: 07 

ff 

db 

03 

00 

lf 

ff 

ff 

aO 

4851 

: eO 

10 

00 

00 

10 

10 

00 

00 

bb 

4859 

: 10 

10 

00 

00 

10 

10 

00 

00 

f3 

4861 

: 10 

10 

00 

00 

10 

Of 

ff 

ff 

f3 

4869 

: fO 

db 

03 

00 

ff 

eO 

lf 

ff 

8b 

4871 

: 00 

10 

10 

00 

00 

10 

10 

00 

3e 

4879 

: 00 

10 

10 

00 

00 

10 

10 

00 

46 

4881 

: 00 

10 

10 

00 

ff 

fO 

Of 

ff 

51 

4889 

: lf 

ff 

ff 

eO 

10 

00 

00 

10 

e5 

4891 

: 10 

00 

00 

10 

Of 

ff 

ff 

fO 

76 

4899 

: ff 

eO 

lf 

ff 

00 

10 

10 

00 

91 

48al 

: 00 

10 

10 

00 

ff 

fO 

Of 

ff 

71 

48a9 

: lf 

ff 

ff 

eO 

10 

00 

00 

10 

05 

48bl 

: 10 

00 

00 

10 

Of 

ff 

ff 

fo 

96 

48b9 

: ff 

eO 

lf 

ff 

00 

10 

10 

00 

bl 

48cl 

: 00 

10 

10 

00 

ff 

fo 

Of 

ff 

91 

48e9 

: lf 

ff 

ff 

eO 

lf 

ff 

ff 

eO 

b7 

48dl 

: 10 

00 

00 

10 

10 

00 

00 

10 

05 

48d9 

: 10 

00 

00 

10 

10 

00 

00 

10 

Od 

48el 

: Of 

ff 

ff 

fO 

Of 

ff 

ff 

fO 

el 

48e9 

: ff 

eO 

lf 

ff 

ff 

eO 

lf 

ff 

a4 

48 fl 

: 00 

10 

10 

00 

00 

10 

10 

00 

be 

48 f 9 

: 00 

10 

10 

00 

00 

10 

10 

00 

c6 

4901 

: ff 

fO 

Of 

ff 

ff 

fO 

Of 

ff 

00 

4909 

: db 

03 

00 

lf 

ff 

fO 

00 

lc 

Oa 

4911 

: 88 

8c 

00 

lb 

22 

23 

00 

18 

ae 

4919 

: c8 

88 

cO 

la 

32 

22 

30 

18 

be 

4921 

: 8f 

ff 

f8 

la 

27 

ff 

f8 

18 

b8 

4929 

: 8f 

82 

78 

06 

27 

aO 

78 

01 

34 

4931 

: 8f 

82 

78 

00 

67 

aO 

78 

00 

7d 

4939 

: lf 

ff 

f8 

00 

07 

ff 

f8 

db 

a2 

4941 

: Of 

00 

01 

50 

15 

00 

Oa 

aa 

6a 

4949 

: aa 

aO 

15 

55 

54 

50 

2a 

aa 

f9 

4951 

: aa 

08 

15 

55 

55 

10 

2a 

aa 

c3 

4959 

: aa 

a8 

15 

55 

55 

50 

Oa 

aa 

9d 

4961 

: aa 

aO 

05 

55 

55 

40 

02 

aa 

fc 

4969 

: aa 

80 

00 

55 

54 

00 

00 

2a 

98 

4971 

: a8 

00 

00 

05 

40 

00 

00 

02 

c2 

4979 

: 80 

db 

08 

00 

03 

fO 

lf 

80 

le 

4981 

: Of 

fc 

7f 

eO 

lf 

ff 

fc 

70 

dl 

4989 

: 3f 

ff 

ff 

18 

3f 

ff 

ff 

98 

fO 

4991 

: 3f 

ff 

ff 

b8 

lf 

ff 

ff 

fO 

bb 

4999 

: Of 

ff 

ff 

eO 

07 

ff 

ff 

cO 

b6 

49al 

: 03 

ff 

ff 

80 

00 

ff 

fe 

00 

bO 

49a9 

: 00 

3f 

f8 

00 

00 

Of 

eO 

00 

83 

49bl 

: 00 

03 

80 

00 

00 

15 

50 

00 

3d 

49b9 

: 00 

aa 

aa 

00 

01 

55 

55 

00 

c9 

49cl 

: 00 

82 

82 

00 

01 

01 

01 

00 

bf 

49o9 

: 00 

82 

82 

00 

00 

54 

54 

00 

9f 

49dl 

: 00 

2a 

a8 

00 

00 

14 

50 

00 

f2 

49d9 

: Oa 

Oa 

aO 

aO 

15 

05 

41 

50 

44 

49el 

: Oa 

aa 

2a 

aO 

00 

05 

50 

00 

48 

49e9 

: Oa 

aa 

2a 

aO 

15 

00 

01 

50 

dd 

49 fl 

: Oa 

00 

00 

aO 

00 

00 

03 

db 

d3 

49 f9 

: 03 

00 

cO 

00 

00 

00 

30 

00 

ed 

4a01 

: 03 

cO 

Oc 

00 

Of 

fO 

03 

00 

ec 

4a09 

: 3c 

3c 

00 

00 

fO 

Of 

00 

03 

fl 


4all : 

cO 

03 

cO 

03 

00 

00 

cO 

00 

e6 

4al9 : 

cO 

00 

00 

00 

30 

00 

00 

cO 

5e 

4a21 : 

Oc 

00 

03 

fO 

03 

00 

Of 

3c 

fl 

4a29 : 

01 

00 

3c 

Of 

00 

00 

fO 

03 

e5 

4a31 : 

cO 

03 

cO 

7f 

80 

00 

00 

fe 

99 

4a39 : 

00 

00 

01 

f8 

01 

eO 

07 

eO 

8e 

4a4l : 

07 

f8 

01 

00 

lf 

fe 

00 

00 

ef 

4a49 : 

61 

ff 

80 

01 

80 

7f 

eO 

00 

72 

4a51 : 

00 

lf 

eO 

00 

00 

7f 

80 

00 

17 

4a59 : 

01 

fe 

00 

eO 

Of 

f8 

01 

f8 

a4 

4a6l : 

01 

eO 

07 

fe 

00 

80 

lf 

ff 

f4 

4a69 : 

80 

00 

61 

7f 

eO 

01 

80 

lf 

88 

4a71 : 

eO 

00 

00 

00 

cO 

03 

cO 

03 

7f 

4a79 : 

00 

00 

fO 

Oc 

00 

00 

3c 

30 

88 

4a81 : 

03 

cO 

Of 

cO 

Oc 

30 

03 

00 

Of 

4a89 : 

30 

Oc 

00 

00 

cO 

03 

00 

03 

ea 

4a91 : 

00 

00 

cO 

03 

cO 

00 

cO 

00 

31 

4a99 : 

fO 

03 

00 

00 

3c 

Oc 

00 

cO 

bl 

4aal : 

Of 

30 

03 

30 

03 

cO 

Oc 

Oc 

Oe 

4aa9 : 

01 

00 

30 

03 

00 

00 

cO 

00 

la 

4abl : 

cO 

03 

00 

Od 

ff 

00 

00 

00 

95 

Listing 6. (Schluß) 







Name : pinsel.00 5041 5112 


5041 

; 

db 

05 

00 

01 

80 

01 

80 

db 

89 

5049 

; 

Ob 

00 03 

cO 03 

cO 

db 

09 

e5 

5051 

! 

00 

07 

eO 

07 

eO 

07 eO 

07 

c6 

5059 

: 

eO 

db 05 

00 

lf 

f8 

lf 

f8 

90 

5061 

; 

lf 

f8 

lf 

f8 

lf 

f8 

lf 

f8 

Ob 

5069 

: 

00 

00 

db 

Of 

ff 

db 

03 

00 

2d 

5071 

: 

03 

cO 

07 

eO 

07 eO 03 

cO 

b7 

5079 

: 

db 

05 

00 

07 

eO 

lf 

f8 

lf 

el 

5081 

5089 

i 

00 


00 

ff 

76 

32 

5091 

; 

7f 

fe 

lf 

f8 

lf 

f8 

60 

06 

bd 

5099 

I 

80 

01 

80 

01 

80 

01 

80 

01 

ee 

50al 

: 

60 

06 

lf 

f8 

00 

00 

07 

eO 

c9 

50a9 

: 

08 

10 

10 

08 

10 

08 

08 

10 

40 

50bl 

: 

07 

eO 

00 

00 

00 

03 

00 

Oc 

59 

50b9 

i 

00 

30 

00 

cO 

03 

00 

Oc 

00 

4a 

50cl 

: 

30 

00 

cO 

00 

cO 

03 

30 

Oc 

le 

50c9 


Oc 

30 

03 

cO 

03 

cO 

Oc 

30 

8d 

50dl 

I 

30 

Oc 

cO 

03 

cO 

00 

30 

00 

65 

50d9 


Oc 

00 

03 

00 

00 

cO 

00 

30 

Od 

50el 

; 

00 

Oc 

00 

03 

ff 

ff 

80 

01 

4c 

50e9 


80 

01 

80 

01 

80 

01 

80 

01 

3e 

50fl 


80 

01 

ff 

ff 

00 

00 

lf 

f8 

60 

50f9 

: 

10 

08 

10 

08 

10 

08 

10 

08 

a4 

5101 

; 

lf 

f8 

db 

05 

00 

03 

cO 

02 

53 

5109 

: 

40 

02 

40 

03 

cO 

db 

03 

00 

b2 

5111 

j 

Od 

ff 

ff 

ff 

ff 

00 

00 

00 

le 


Listing 7. Hier steht eine kleine 
Auswahl an Pinsel zur Verfügung. 
Bitte mit dem MSE, Seite 158, 
eingeben 


Name : gredi.print 6000 6373 


6000 : 

: 47 

52 

45 

44 

49 

4c 

4a 

61 

2d 

6008 : 

: a9 

04 

aa 

20 

ba 

ff 

a9 

00 

b4 

6010 : 

: 20 

bd 

ff 

20 

cO 

ff 

a2 

04 

bl 

6018 : 

: 20 

c9 

ff 

90 

05 

68 

68 

4c 

fd 

6020 i 

: la 

61 

aO 

01 

20 

ff 

60 

aO 

f8 

6028 : 

: 04 

20 

ff 

60 

ad 

5f 

63 

8d 

c7 

6030 : 

: 60 

63 

4c 

d2 

ff 

20 

42 

Ob 

cf 

6038 : 

: 8d 

03 

ff 

20 

54 

63 

2c 

5e 

19 

6040 : 

: 63 

30 

03 

20 

e4 

61 

20 

bf 

da 

6048 : 

: 62 

20 

Oc 

63 

20 

08 

60 

a9 

41 


6050 


fe 

85 

fe 

20 

el 

ff 

dO 

16 

62 

6058 

; 

20 

f2 

60 

20 

26 

63 

a9 

15 

5c 

6060 

I 

a2 

27 

aO 

Oe 

20 

el 

62 

30 

7b 

6068 

: 

dd 

70 

dO 

4c 

ec 

60 

a2 

50 

38 

6070 

i 

86 

ff 

a5 

52 

85 

fb 

a5 

53 

lf 

6078 

: 

85 

fc 

aO 

03 

20 

ff 

60 

2c 

eO 

6080 

: 

5e 

63 

10 

03 

a9 

01 

2c 

a9 

9b 

6088 

; 

03 

20 

62 

ff 

a9 

80 

20 

d2 

15 

6090 

; 

ff 

a9 

02 

20 

d2 

ff 

20 

CC 

30 

6098 

: 

61 

aO 

08 

26 

fa 

bO 

03 

a9 

a5 

60a0 

: 

00 

2c 

a9 

80 

20 

d2 

ff 

88 

da 

60a8 


dO 

fl 

20 

68 

37 

c6 

ff 

dO 

dl 

60 b 0 

: 

e5 

2c 

5d 

63 

10 

Od 

ad 

5d 

4a 

60b8 

: 

63 

49 

40 

8d 

5d 

63 

2c 

5d 

de 

60 c 0 

: 

63 

70 

ab 

aO 

02 

20 

ff 

60 

3c 

60c8 

: 

2c 

5e 

63 

10 

08 

e6 

fe 

dO 

54 

60d0 

: 

9d 

a9 

fe 

85 

fe 

a5 

52 

18 

49 

60d8 


69 

50 

85 

52 

90 

02 

e6 

53 

70 

60e0 


a5 

53 

c9 

ff 

bO 

03 

4c 

53 

9c 

60 e 8 

; 

60 

20 

f2 

60 

20 

19 

Ob 

4c 

bl 

60f0 

: 

4a 

61 

aO 

01 

20 

ff 

60 

20 

f7 

60 f 8 

: 

cc 

ff 

a9 

04 

4c 

c3 

ff 

a2 

d7 

6100 


00 

bd 

61 

63 

e8 

c9 

ff 

dO 

22 

6108 


f8 

88 

dO 

f5 

bd 

61 

63 

c9 

3f 

6110 


ff 

fO 

06 

20 

d2 

ff 

e8 

dO 

7f 

6118 

: 

f3 

60 

20 

f7 

60 

20 

7d 

ff 

3f 

6120 


Od 

Od 

Of 

20 

44 

52 

55 

43 

2e 

6128 


4b 

45 

52 

20 

45 

49 

4e 

53 

2d 

6130 


43 

48 

4l 

4c 

54 

45 

4e 

20 

5a 

6138 


21 

21 

21 

20 

12 

20 

53 

50 

46 

6140 

: 

4l 

43 

45 

20 

92 

8f 

00 

20 

5e 

6148 


da 

62 

a9 

Oa 

8d 

5f 

63 

a9 

b4 

6150 

: 

00 

8d 

5d 

63 

8d 

03 

ff 

20 

Oc 

6158 


7d 

ff 

13 

13 

93 

02 

20 

48 

56 

6160 


41 

52 

44 

43 

4f 

50 

59 

20 

61 

6168 


20 

20 

20 

20 

20 

20 

20 

20 

68 

6170 


20 

20 

20 

20 

20 

20 

20 

20 

70 

6178 

: 

20 

20 

20 

20 

20 

20 

20 

20 

78 

6180 

; 

20 

82 

Od 

Od 

20 

12 

20 

4b 

70 

6188 

: 

20 

92 

4c 

45 

49 

4e 

Od 

Od 

02 

6190 

: 

20 

12 

20 

4e 

20 

92 

4f 

52 

04 

6198 

I 

4d 

41 

4c 

Od 

Od 

Od 

20 

12 

18 

61a0 


20 

47 

20 

92 

52 

45 

44 

49 

bl 

61a8 


00 

a9 

27 

a2 

25 

aO 

la 

20 

9b 

6lb0 


el 

62 

30 

05 

50 

Ob 

a9 

00 

73 

6lb8 

; 

2c 

a9 

80 

8d 

5e 

63 

4c 

35 

27 

61 c 0 

: 

60 

ad 

60 

63 

fO 

03 

20 

19 

55 

6lc8 


Ob 

4c 

Of 

39 

aO 

00 

2c 

5d 

5a 

6ld0 

: 

63 

70 

08 

8d 

01 

ff 

bl 

fb 

ee 

6ld8 

I 

4c 

de 

61 

20 

f9 

Ob 

85 

fa 

f4 

6le0 

; 

8d 

03 

ff 

60 

a9 

00 

8d 

5d 

86 

6le8 

: 

63 

20 

7d 

ff 

Od 

Od 

20 

45 

ff 

6lf0 

; 

49 

4e 

5a 

45 

4c 

47 

52 

4l 

6a 

6lf8 


46 

49 

4b 

20 

12 

20 

4a 

20 

45 

6200 


92 

20 

2f 

20 

12 

20 

4e 

20 

Oe 

6208 

: 

92 

20 

3f 

00 

a9 

22 

a2 

27 

ff 

6210 

: 

a8 

20 

el 

62 

70 

03 

4c 

b9 

51 

6218 

: 

62 

a9 

80 

8d 

5d 

63 

20 

7d 

8d 

6220 

: 

ff 

13 

13 

93 

11 

20 

47 

52 

b4 

6228 

: 

41 

46 

49 

4b 

20 

41 

55 

53 

50 

6230 

: 

20 

12 

20 

53 

20 

92 

50 

45 

2e 

6238 

; 

49 

43 

48 

45 

52 

2c 

20 

4f 

83 

6240 

; 

44 

45 

52 

20 

56 

4f 

4e 

20 

19 

6248 

; 

12 

20 

44 

20 

92 

49 

53 

4b 

d7 

6250 

: 

20 

3f 

00 

a9 

Od 

a2 

12 

a8 

c5 

6258 


20 

el 

62 

30 

59 

20 

7d 

ff 

94 

6260 

: 

13 

13 

93 

02 

20 

32 

2e 

20 

af 

6268 

| 

47 

52 

41 

46 

49 

4b 

20 

4c 

fa 

6270 


41 

44 

45 

4e 

20 

20 

20 

20 

b2 

6278 

: 

20 

20 

20 

20 

20 

20 

20 

20 

78 

6280 

: 

20 

20 

20 

20 

20 

20 

20 

82 

45 

6288 

2 

00 

20 

62 

38 

a5 

34 

dO 

05 

81 

6290 

: 

68 

68 

4c 

4a 

61 

ad 

22 

39 

07 

6298 


48 

a9 

60 

8d 

22 

39 

20 

ea 

cl 

62a0 


35 

68 

8d 

22 

39 

8d 

03 

ff 

bd 


110 
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LISTINGS 


62a8 

20 

24 

ca 

ad 

f6 

38 

c9 

47 

29 

62b0 

fO 

04 

c9 

45 

dO 

da 

a9 

Oa 

5c 

62b8 

2c 

a9 

14 

8d 

5f 

63 

60 

20 

42 

62c0 

24 

ca 

20 

7d 

ff 

93 

02 

12 

ca 

62c8 

20 

53 

50 

41 

43 

45 

20 

92 

d2 

62d0 

20 

3d 

20 

53 

54 

4l 

52 

54 

43 

62d8 

82 

00 

a5 

d4 

c9 

3c 

dO 

fa 

16 

62e0 

60 

8d 

f4 

62 

8e 

f8 

62 

8c 

e4 

62e8 

fc 

62 

a9 

00 

85 

dO 

20 

69 

b2 

62 fO 

34 

a5 

d4 

c9 

00 

fO 

Ob 

c9 

ac 

62 f 8 

00 

fO 

0a 

c9 

00 

dO 

f2 

a9 

d2 

6300 

00 

2c 

a9 

80 

2c 

a9 

40 

85 

ad 

6308 

50 

24 

50 

60 

20 

7d 

ff 

93 

aO 

6310 

02 

12 

20 

53 

54 

4f 

50 

20 

cf 

6318 

92 

20 

3d 

20 

41 

42 

42 

52 

e2 

6320 

55 

43 

48 

82 

00 

60 

20 

7d 

f8 

6328 

ff 

93 

02 

12 

20 

46 

20 

92 

8e 

6330 

4f 

52 

54 

53 

45 

54 

5a 

45 

13 

6338 

4e 

2c 

20 

12 

20 

4e 

20 

92 

01 

6340 

45 

55 

53 

54 

41 

52 

54 

2c 

eO 

6348 

20 

12 

20 

45 

20 

92 

4e 

44 

7a 

6350 

45 

82 

00 

60 

a9 

00 

85 

52 

38 

6358 

a9 

82 

85 

53 

60 

00 

00 

00 

14 

6360 

00 

ff 

lb 

40 

lb 

5d 

31 

ff 

90 

6368 

Od 

lb 

4a 

02 

ff 

lb 

2a 

ff 

57 

6370 

lb 

6c 

ff 

ff 

ff 

ff 

00 

00 

cl 


Listing 8. Das Hardcopy- 
Programm wird mit dem MSE auf 
Seite 158 eingegeben 


Name : zedi 6000 7e9f 


6000 

: 47 

52 

45 

44 

49 

20 

la 

6a 

ld 

6008 

: ad 

lc 

39 

8d 

fO 

63 

a9 

60 

55 

6010 

: 8d 

lc 

39 

20 

f5 

62 

20 

99 

24 

6018 

: 6e 

20 

a6 

67 

8d 

49 

67 

8d 

09 

6020 

: 65 

67 

20 

de 

71 

20 

69 

34 

03 

6028 

: 20 

ee 

6e 

a5 

d4 

a4 

d3 

c9 

65 

6030 

: 4c 

dO 

06 

ae 

58 

67 

4c 

cf 

cd 

6038 

: 6a 

c9 

07 

dO 

14 

ae 

58 

67 

4a 

6040 

: eO 

00 

fO 

e7 

ca 

8e 

58 

67 

ab 

6048 

: 20 

ea 

70 

20 

69 

34 

4c 

2b 

bd 

6050 

: 60 

c9 

02 

dO 

Ob 

ae 

58 

67 

86 

6058 

: eO 

19 

fO 

cf 

e8 

4c 

45 

60 

c2 

6060 . 

: c9 

48 

dO 

03 

4c 

a7 

6a 

c9 

21 

6068 : 

: 3f 

dO 

Ob 

ad 

4a 

67 

fO 

bb 

a3 

6070 : 

: 20 

9a 

75 

4c 

2b 

60 

a2 

00 

04 

6078 : 

: dd 

31 

6b 

fO 

25 

e8 

eO 

08 

14 

6080 : 

: dO 

f6 

a2 

00 

dd 

59 

42 

fO 

08 

6088 : 

: 08 

e8 

eO 

30 

dO 

f6 

4c 

30 

99 

6090 : 

: 6f 

8a 

cO 

01 

dO 

03 

18 

69 

ed 

6098 : 

: 30 

8d 

49 

67 

20 

3d 

69 

4c 

f8 

60a0 : 

: 28 

60 

8a 

18 

69 

10 

aa 

4c 

f8 

60a8 : 

: cc 

6a 

20 

7d 

ff 

Od 

91 

91 

33 

60b0 : 

: 91 

91 

20 

20 

20 

20 

20 

20 

da 

60b 8 : 

: 12 

20 

20 

cl 

43 

48 

54 

55 

8d 

60c 0 : 

: 4e 

47 

2c 

20 

da 

45 

49 

43 

44 

60c 8 : 

: 48 

45 

4e 

53 

41 

54 

5a 

20 

ll 

60 d 0 : 

: 4e 

49 

43 

48 

54 

20 

41 

42 

6d 

60d8 : 

: 47 

45 

53 

50 

45 

49 

43 

48 

dd 

60 e 0 : 

: 45 

52 

54 

20 

21 

21 

21 

20 

47 

60e8 : 

: 92 

Od 

Od 

20 

12 

20 

cd 

20 

e2 

60 f 0 : 

: 92 

41 

43 

48 

54 

20 

4e 

49 

Of 

60f8 : 

: 43 

48 

54 

53 

20 

20 

2f 

20 

df 

6100 : 

: 20 

12 

20 

c4 

20 

92 

41 

4e 

02 

6108 : 

4b 

45 

2c 

20 

48 

db 

54 

54 

62 

6110 : 

45 

20 

49 

43 

48 

20 

42 

45 

39 

6118 : 

49 

4e 

41 

48 

45 

20 

56 

45 

lb 

6120 : 

52 

47 

45 

53 

53 

45 

4e 

2e 

c7 

6128 : 

00 

20 

3a 

61 

a5 

d4 

c9 

24 

63 

5130 : 

dO 

02 

38 

60 

c9 

12 

dO 

f4 

76 

6138 : 

18 

60 

a9 

00 

85 

dO 

60 

8d 

66 


6140 

: 03 

ff 

20 

24 

ca 

20 

42 cl 

Oa 

6148 

: a9 

00 

a2 

2f 

20 

2e 

ca a9 

72 

6150 

: 18 

a2 

4f 

20 

ld 

ca 

20 7d 

35 

6158 

: ff 

Oc 

Oe 

Ob 

lb 

4d 

13 93 

d2 

6160 

: 11 

20 

af 

af 

9t 

af 

af af 

fa 

6168 

: af 

af 

af 

af 

af 

20 

da 20 

78 

6170 

: c5 

20 

c4 

20 

c9 

20 

af af 

36 

6178 

: af 

af 

af 

af 

af 

af 

af af 

77 

6180 

: af 

20 

b6 

20 

20 

20 

20 20 

b5 

6188 

: 20 

20 

20 

20 

20 

20 

20 20 

88 

6190 

: 20 

20 

20 

20 

20 

20 

20 20 

90 

6198 

: 20 

b5 

20 

20 

20 

20 

20 20 

63 

61a0 

: 20 

20 

b5 

b6 

20 

20 

da 45 

Od 

61a8 

: 49 

43 

48 

45 

4e 

42 

52 45 

18 

6lb0 

: 49 

54 

45 

20 

3a 

20 

30 31 

4l 

6lb8 

: 20 

20 

b5 

20 

d8 

20 

3d 20 

ld 

6lc0 

: 30 

30 

20 

b5 

b6 

20 

20 20 

f4 

6lc8 

: 20 

20 

20 

20 

20 

20 

20 20 

c8 

6ld0 

: 20 

20 

20 

20 

20 

20 

20 20 

dO 

6ld8 

: 20 

20 

20 

b5 

20 

20 

20 20 

8b 

6le0 

: 20 

20 

20 

20 

b5 

b6 

20 20 

ee 

6le8 

: d2 

dd 

43 

4b 

53 

43 

48 52 

f8 

6lf0 

: 49 

54 

54 

20 

20 

20 

3a 20 

a9 

6lf8 

: 30 

30 

20 

20 

b5 

20 

d9 20 

50 

6200 

: 3d 

20 

30 

30 

20 

b5 

b6 20 

2a 

6208 

: 20 

20 

20 

20 

20 

20 

20 20 

08 

6210 

: 20 

20 

20 

20 

20 

20 

20 20 

10 

6218 

: 20 

af 

af 

af 

20 

b5 

20 20 

62 

6220 

: 20 

20 

20 

20 

20 

20 

b5 b6 

a4 

6228 

: 20 

20 

da 

45 

49 

43 

48 45 

12 

6230 

: 4e 

20 

20 

20 

20 

20 

20 20 

5e 

6238 

: 3a 

20 

b5 

20 

b6 

20 

b5 20 

77 

6240 

: 20 

20 

20 

20 

20 

20 

20 b5 

6b 

6248 

: b6 

20 

20 

20 

20 

20 

20 20 

de 

6250 

: 20 

20 

20 

20 

20 

20 

20 20 

50 

6258 

: 20 

20 

20 

b7 

b7 

b7 

20 b5 

ac 

6260 

6268 

: 20 20 
: b5 20 

Mm 

20 20 
b7 b7 

60 

9a 

6270 

: b7 

b7 

b7 

b7 

b7 

b7 

b7 b7 

6f 

6278 

: b7 

b7 

b7 

b7 

b7 

b7 

b7 b7 

77 

6280 

: b7 

b7 

b7 

b7 

b7 

b7 

b7 b7 

7f 

6288 

: b7 

20 

20 

af 

af 

af 

af af 

e4 

6290 

: af 

af 

af 

af 

af 

af 

af af 

8f 

6298 

: af 

af 

af 

af 

af 

af 

af af 

97 

62 aO 

: af 

af 

af 

af 

af 

af 

af af 

9f 

62 a8 

: af 

af 

20 

b6 

20 

cd 

45 4d 

2e 

62b 0 

: 2e 

31 

20 

b5 

20 

cd 

45 4d 

56 

62b 8 

: 2e 

32 

20 

b5 

20 

cd 

45 4d 

de 

62c0 

: 2e 

33 

20 

b5 

20 

cd 

45 4d 

67 

62c8 

: 2e 

34 

20 

b5 

20 

b7 

b7 b7 

dd 

62d0 

: b7 

b7 

b7 

b7 

b7 

b7 

b7 b7 

cf 

62d8 

: b7 

b7 

b7 

b7 

b7 

b7 

b7 b7 

d7 

62e0 

: b7 

b7 

b7 

b7 

b7 

b7 

b7 b7 

df 

62e8 

: b7 

b7 

b7 

b7 

20 

00 

20 24 

2a 

62 fO 

: ca 

8d 

01 

ff 

60 

8d 

03 ff 

40 

62 f 8 

: 20 

7d 

ff 

Oe 

Ob 

lb 

4d 13 

7d 

6300 

: 13 

93 

11 

20 

20 

12 

20 ce 

d6 

6308 

: 20 

92 

45 

55 

45 

4e 

20 da 

6a 

6310 

: 45 

49 

43 

48 

45 

4e 

53 41 

6a 

6318 

: 54 

5a 

20 

45 

52 

53 

54 45 

e6 

6320 

: 4c 

4c 

45 

4e 

Od 

Od 

20 20 

a7 

6328 

: 12 

20 

d3 

20 

92 

50 

45 49 

97 

6330 

: 43 

48 

45 

52 

5a 

45 

49 43 

ae 

6338 

: 48 

45 

4e 

20 

42 

45 

4l 52 

b2 

6340 

: 42 

45 

49 

54 

45 

4e 

Od Od 

17 

6348 

: 20 

20 

12 

20 

da 

20 

92 45 

84 

6350 

: 49 

43 

48 

45 

4e 

53 

41 54 

23 

6358 

: 5a 

20 

4c 

4l 

44 

45 

4e Od 

bf 

6360 

: Od 

20 

20 

12 

20 

c4 

20 92 

96 

6368 

: 49 

52 

45 

43 

54 

4f 

52 59 

50 

6370 

: Od 

Od 

20 

20 

12 

20 

c7 20 

91 

6378 

: 92 

52 

45 

44 

49 

Od 

Od Of 

5d 

6380 

: 20 

20 

20 

20 

c2 

c9 

d4 d4 

34 

6388 

: c5 

20 

d7 

df 

c5 

c8 

cc c5 

bO 

6390 

: ce 

20 

d3 

c9 

c5 

20 

21 8f 

9d 


6398 : 

00 

20 

78 

3b 

20 

3a 

61 

ad 

e3 

63 aO : 

66 

67 

fO 

19 

20 

Oc 

77 

20 

9a 

63 a8 : 

7d 

ff 

da 

45 

49 

43 

48 

45 

de 

63bO : 

4e 

53 

41 

54 

5a 

20 

21 

21 

fO 

63b8 : 

21 

20 

92 

8f 

00 

20 

e4 

ff 

14 

63c0 : 

c9 

4e 

dO 

Od 

ad 

51 

67 

fO 

6b 

63c8 : 

05 

20 

aa 

60 

90 

30 

4c 

fc 

4a 

63d0 : 

64 

c9 

53 

dO 

03 

4c 

a6 

64 

fe 

63d8 : 

c9 

47 

dO 

lb 

ad 

51 

67 

fO 

cl 

63e0 : 

05 

20 

aa 

60 

90 

18 

20 

7d 

fl 

63e8 : 

ff 

Oc 

8e 

Ob 

00 

68 

68 

a9 

2b 

63 fO : 

ea 

8d 

lc 

39 

4c 

Of 

39 

c9 

85 

63 f8 : 

44 

dO 

06 

20 

el 

77 

4c 

f5 

21 

6400 : 

62 

c9 

5a 

dO 

b8 

ad 

51 

67 

04 

6408 : 

fO 

05 

20 

aa 

60 

90 

ef 

20 

63 

6410 : 

89 

64 

90 

ea 

a2 

00 

a4 

34 

72 

6418 : 

bd 

fb 

38 

99 

00 

02 

c8 

e8 

19 

6420 : 

eO 

04 

dO 

f4 

84 

34 

20 

f8 

31 

6428 : 

36 

a2 

02 

20 

c6 

ff 

bO 

67 

32 

6430 : 

20 

cf 

ff 

c9 

5a 

dO 

03 

4c 

42 

6438 : 

6d 

7a 

c9 

41 

dO 

59 

20 

cf 

75 

6440 : 

ff 

c9 

5a 

dO 

52 

8d 

f6 

38 

b2 

6448 : 

20 

cf 

ff 

8d 

98 

42 

20 

cf 

bd 

6450 : 

ff 

8d 

97 

42 

20 

cf 

ff 

8d 

eO 

6458 : 

95 

42 

20 

56 

36 

a9 

60 

8d 

2f 

6460 : 

5c 

35 

20 

61 

35 

a9 

68 

8d 

e8 

6468 : 

5c 

35 

20 

8b 

3b 

a9 

00 

8d 

f4 

6470 : 

51 

67 

aO 

ff 

84 

fb 

a9 

81 

6f 

6478 : 

85 

fc 

c8 

20 

f9 

Ob 

dO 

03 

f3 

6480 : 

ad 

95 

42 

8d 

62 

67 

4c 

fl 

bl 

6488 : 

62 

20 

42 

cl 

20 

62 

38 

a5 

04 

6490 : 

34 

fO 

02 

38 

60 

18 

60 

24 

55 

6498 : 

90 

70 

05 

a9 

80 

8d 

66 

67 

b4 

64a0 : 

20 

8b 

3b 

4c 

f5 

62 

ad 

98 

39 

64a8 : 

42 

dO 

c7 

20 

7d 

ff 

93 

11 

90 

64b0 : 

11 

11 

11 

20 

20 

20 

cb 

45 

4f 

64b8 : 

49 

4e 

20 

da 

45 

49 

43 

48 

c8 

64c0 : 

45 

4e 

53 

41 

54 

5a 

20 

49 

55 

64 e8 : 

4d 

20 

d3 

50 

45 

49 

43 

48 

60 

64d0 : 

45 

52 

20 

21 

Od 

Od 

20 

20 

65 

64d8 : 

12 

20 

20 

d3 

dO 

cl 

c 3 

c5 

32 

64e0 : 

20 

20 

92 

00 

20 

02 

78 

4c 

42 

64e8 : 

f5 

62 

20 

91 

69 

a2 

32 

98 

ee 

64 fO : 

20 

01 

Oc 

c8 

dO 

fa 

e6 

fc 

27 

64 f8 : 

ca 

dO 

f5 

60 

ad 

97 

42 

8d 

6f 

6500 : 

63 

67 

ad 

95 

42 

8d 

64 

67 

26 

6508 : 

8d 

03 

ff 

20 

7d 

ff 

93 

11 

63 

6510 : 

11 

20 

12 

20 

3e 

c6 

31 

2f 

f7 

6518 : 

c6 

32 

3c 

20 

92 

20 

c7 

45 

de 

6520 : 

53 

41 

4d 

54 

42 

52 

45 

49 

50 

6528 : 

54 

45 

20 

2b 

2f 

2d 

20 

3a 

de 

6530 : 

20 

30 

38 

Od 

Od 

20 

12 

20 

72 

6538 : 

3e 

c6 

33 

2f 

c6 

34 

3c 

20 

cb 

6540 : 

92 

20 

c7 

45 

53 

4l 

4d 

54 

9a 

6548 : 

48 

de 

48 

45 

20 

20 

20 

2b 

93 

6550 : 

2f 

2d 

20 

3a 

20 

30 

38 

Od 

e4 

6558 : 

Od 

20 

12 

20 

d2 

c5 

d4 

d5 

58 

6560 : 

d2 

ce 

20 

92 

20 

20 

d7 

45 

el 

6568 : 

52 

54 

45 

20 

dd 

42 

45 

52 

e3 

6570 : 

4e 

45 

48 

4d 

45 

4e 

00 

a9 

37 

6578 : 

08 

8d 

97 

42 

8d 

95 

42 

20 

44 

6580 : 

69 

34 

a5 

d4 

c9 

04 

fO 

63 

4e 

6588 : 

c9 

05 

fO 

25 

c9 

01 

dO 

f2 

82 

6590 : 

a9 

00 

8d 

51 

67 

20 

ba 

65 

f4 

6598 : 

ad 

63 

67 

fO 

17 

cd 

97 

42 

bl 

65aO : 

fO 

02 

bO 

10 

ad 

64 

67 

cd 

f7 

65a8 : 

95 

42 

fO 

02 

bO 

06 

4c 

bO 

a9 

65b0 : 

7c 

4c 

lf 

66 

20 

ea 

64 

4c 

6a 

65b8 : 

c4 

65 

ad 

97 

42 

4a 

4a 

4a 

cl 

65c0 : 

8d 

97 

42 

60 

20 

91 

69 

a9 

3d 

65c8 : 

01 

20 

01 

Oc 

c8 

c8 

cO 

cO 

f3 
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65d0 : 

dO 

f7 

a9 

00 

8d 

98 

42 

ae 

Oa 

65d8 : 

: 95 

42 

8e 

62 

67 

ad 

98 

42 

49 

65e0 : 

: 18 

6d 

97 

42 

8d 

98 

42 

ca 

19 

65e8 : 

: dO 

f3 

60 

a5 

d3 

c9 

01 

fO 

fO 

65f0 : 

: Of 

ad 

97 

42 

c9 

38 

fO 

8a 

3b 

65f8 : 

: 18 

69 

08 

8d 

97 

42 

90 

Od 

60 

6600 : 

: ad 

97 

42 

c9 

08 

fO 

ef 

38 

7b 

6608 : 

: e9 

08 

8d 

97 

42 

ad 

97 

42 

cO 

6610 : 

: a2 

be 

aO 

00 

20 

4e 

66 

20 

88 

6618 : 

: 67 

67 

90 

25 

4c 

7f 

65 

a5 

9d 

6620 : 

: d3 

c9 

01 

fO 

Oc 

ad 

95 

42 

3f 

6628 : 

: 09 

40 

fO 

d9 

ee 

95 

42 

dO 

cf 

6630 : 

: Oa 

ad 

95 

42 

c9 

08 

fO 

cd 

fb 

6638 : 

: ce 

95 

42 

ad 

97 

42 

20 

67 

f2 

6640 : 

: 67 

ad 

95 

42 

a2 

5e 

aO 

01 

cd 

6648 : 

: 20 

4e 

66 

4c 

7f 

65 

86 

23 

36 

6650 : 

: 84 

24 

aa 

aO 

2f 

84 

fa 

c8 

3a 

6658 : 

: 84 

fb 

e6 

fa 

a5 

fa 

c9 

3a 

cO 

6660 : 

: 90 

10 

a9 

30 

85 

fa 

e6 

fb 

2c 

6668 : 

: a5 

fb 

c9 

3a 

90 

04 

a9 

30 

f5 

6670 : 

: 85 

fb 

ca 

10 

e5 

a5 

fb 

20 

63 

6678 : 

: 75 

13 

20 

18 

28 

a5 

fa 

4c 

b6 

6680 : 

: 75 

13 

40 

40 

2a 

20 

19 

15 

c9 

6688 : 

: 12 

40 

48 

50 

58 

20 

01 

02 

65 

6690 : 

: 03 

04 

05 

06 

07 

08 

09 

Oa 

80 

6698 : 

: Ob 

Oc 

Od 

Oe 

Of 

10 

11 

12 

88 

66a0 : 

: 13 

14 

15 

16 

17 

18 

19 

la 

90 

66a8 : 

: 5b 

5c 

5d 

5e 

31 

32 

33 

34 

2e 

66b 0 : 

: 35 

36 

37 

38 

39 

30 

62 

2c 

cc 

66b8 : 

: 2e 

3d 

2a 

2f 

3c 

20 

4l 

42 

44 

66e0 : 

: 43 

44 

45 

46 

47 

48 

49 

4a 

bO 

66c8 : 

: 4b 

4c 

4d 

4e 

4f 

50 

51 

52 

b8 

66d0 : 

: 53 

54 

55 

56 

57 

58 

59 

5a 

cO 

66d8 : 

: 5f 

60 

61 

2b 

21 

22 

23 

24 

ld 

66e0 : 

: 25 

26 

27 

28 

29 

63 

2d 

3b 

cO 

66e8 : 

: 3a 

lb 

ld 

3f 

3e 

43 

73 

Od 

c5 

66f0 : 

: 73 

2d 

69 

71 

73 

ad 

73 

fa 

eb 

66f8 : 

: 73 

fa 

73 

2d 

69 

Ob 

74 

Ob 

42 

6700 : 

: 74 

30 

75 

4d 

75 

5f 

75 

53 

62 

6708 : 

: 75 

59 

75 

7b 

76 

87 

76 

19 

a6 

6710 : 

: 73 

4f 

73 

7d 

73 

b9 

73 

17 

b8 

6718 : 

: 74 

06 

74 

4a 

7b 

7b 

7b 

bO 

d9 

6720 : 

: 7b 

fd 

7b 

56 

7e 

02 

7e 

8e 
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: 01 Oc c8 cc 63 67 dO f5 

6c 

7d00 

: 98 20 22 24 20 aa 7c ca 

94 

7d08 

: dO e9 a5 52 18 6d 98 42 

54 

7dl0 

: 85 52 85 fb a5 53 69 00 

3a 

7dl8 

: 85 53 85 fc c6 50 dO dO 

lc 

7d20 

: 60 ad 5a 67 85 84 ad 5c 

c6 

7d28 

: 67 85 85 20 ee 6e 20 Oa 

ae 


7d30 

: 6f 

20 

66 

75 

30 

f5 

eO 

05 

38 

7d38 

: bO 

fl 

8a 

Oa 

aa 

bd 

35 

67 

01 

7d40 

: 8d 

4a 

7d 

bd 

36 

67 

8d 

4b 

75 

7d48 

: 7d 

20 

ff 

ff 

4c 

2b 

7d 

20 

29 

7d50 

: 8b 

69 

84 

4 c 

ad 

95 

42 

85 

f6 

7d58 

: 4c 

aO 

00 

a2 

00 

86 

4b 

bl 

Od 

7d60 

: fb 

c9 

64 

fO 

Ob 

c9 

66 

fO 

fl 

7d68 

: 07 

a5 

4b 

ld 

50 

13 

85 

4b 

03 

7d70 

: c8 

e8 

eO 

08 

dO 

e9 

a6 

4d 

77 

7d78 

: a5 

4b 

9d 

00 

b8 

e6 

4d 

cc 

bc 

7d80 

: 61 

67 

dO 

d7 

20 

7f 

68 

c6 

fl 

7d88 

: 4c 

dO 

ce 

4c 

2a 

73 

20 

e2 

fe 

7d90 

: 7b 

85 

84 

dO 

Oa 

a9 

Of 

20 

73 

7d98 

: 72 

75 

a5 

84 

20 

72 

75 

20 

6a 

7da0 

: c3 

7d 

ae 

95 

42 

a4 

84 

cc 

75 

7da8 

: 61 

67 

fO 

09 

bl 

fb 

88 

91 

5a 

7db0 

: fb 

c8 

c8 

dO 

f2 

88 

a9 

64 

3e 

7db8 

: 91 

fb 

20 

7f 

68 

ca 

dO 

e5 

2b 

7dc0 

: 4c 

4f 

7d 

20 

42 

70 

20 

8b 

56 

7dc8 

: 68 

4c 

8b 

69 

20 

e2 

7b 

85 

78 

7dd0 

: 84 

dO 

Oa 

a9 

10 

20 

72 

75 

2b 

7dd8 

: a5 

84 

20 

72 

75 

20 

c3 

7d 

78 

7de0 

: ae 

95 

42 

ac 

61 

67 

c4 

84 

ec 

7de8 

: fO 

Oa 

88 

88 

bl 

fb 

c8 

91 

52 

7df0 

: fb 

4c 

e6 

7d 

88 

a9 

64 

91 

05 

7df8 

: fb 

20 

7f 

68 

ca 

dO 

e4 

4c 

50 

7e00 

: 4f 

7d 

20 

fO 

7b 

85 

85 

dO 

dO 

7e08 

: Oa 

a9 

Oe 

20 

72 

75 

a5 

85 

e3 

7elO 

: 20 

72 

75 

20 

42 

70 

20 

88 

04 

7el8 

: 69 

c8 

c4 

85 

fO 

07 

20 

aa 

e4 

7e20 

: 7c 

c8 

4c 

la 

7e 

a5 

fb 

18 

8c 

7e28 

: 6d 

97 

42 

85 

fd 

a5 

fc 

69 

76 

7e30 

: 00 

85 

fe 

ae 

95 

42 

e4 

85 

92 

7e38 

: fO 

Oa 

20 

92 

7e 

20 

a4 

7c 

fc 

7e40 

: ca 

4c 

36 

7e 

20 

4a 

7e 

4c 

75 

7e48 

: 2a 

73 

aO 

00 

98 

91 

fb 

c8 

ec 

7e50 

: cc 

97 

42 

dO 

f8 

60 

20 

fO 

87 

7e58 

: 7b 85 

85 dO Oa 

Od 

20 

74 

7e60 

: 72 

75 

a5 

85 

20 

72 

75 

20 

53 

7e68 

: 42 

70 

38 

ad 

98 

42 

ed 

97 

29 

7e70 

: 42 

85 

fb 

a9 

b8 

85 

fc 

85 

60 

7e78 

: fe 

38 

a5 

fb 

ed 

97 

42 

85 

2b 

7e80 

: fd 

ae 

95 

42 

e4 

85 

fO 

bc 

3a 

7e88 

: 20 

92 

7e 

20 

80 

7c 

ca 

4c 

45 

7e90 

: 84 

7e 

aO 

00 

bl 

fd 

91 

fb 

c5 

7e98 

: c8 

cc 

97 

42 

dO 

f6 

60 

00 

3b 


Listing 9. (Schluß) 


Name 

outline.raakro 4d4l 4d65 

4d4l 

02 00 00 aO 19 04 02 01 

13 

4d49 

01 00 al 19 04 02 00 aO 

67 

4d51 

19 04 02 00 aO 19 00 02 

c4 

4d59 

00 aO 19 00 02 00 al 59 

49 

4d6l 

04 00 02 ff ff 00 00 00 

e6 

Listing 10 bis 16. Makros zum 
Ausprobieren. Bitte mit dem 
MSE (Seite 158) eingeben. 



Name 

inline.makro 


4d4l 4d92 

4d4l 

02 

00 

01 

02 

00 

aO 

19 

04 

35 

4d49 

02 

00 

aO 

19 

04 

02 

00 

aO 

28 

4d51 

19 

04 

02 

00 

aO 

19 

04 

02 

d4 

4d59 

00 

aO 

19 

00 

02 

00 

aO 

19 

c5 

4d6l 

00 

02 

01 

01 

02 

00 

00 

aO 

24 

4d69 

19 

04 

02 

02 

01 

00 

al 

19 

Oe 

4d71 

04 

02 

00 

aO 

19 

04 

02 

00 

44 

4d79 

aO 

19 

00 

02 

00 

aO 

19 

00 

50 


4d81 

02 00 al 59 04 00 02 00 

5f 

4d89 

a2 19 04 04 00 00 04 02 

4e 

4d91 

ff ff ff ff ff 00 00 00 

90 

Listing 11. 



Name 

: relief.makro 


4d4l 4d59 

4d4l 

: 02 00 

00 

aO 19 

04 

02 

01 

13 

4d49 

: 01 00 

al 

19 04 

02 

00 

aO 

67 

4d51 

: 19 00 

02 

00 al 

59 

02 

ff 

d8 

Listing 12. 








Name : shadowl.makro 4d4l 4d7a 


4d4l : 

02 00 

00 

aO 

19 

04 

02 

01 

13 

4d49 : 

01 04 

04 

04 

04 

00 

al 

19 

c7 

4d51 : 

00 00 

00 

02 

00 

aO 

19 

01 

fd 

4d59 : 

04 02 

00 

aO 

19 

01 

04 

02 

20 

4d61 : 

00 aO 

19 

01 

04 

02 

00 

aO 

a9 

4d69 : 

19 04 

02 

00 

aO 

19 

04 

02 

ec 

4d71 : 

00 al 

59 

00 

00 

00 

04 

02 

ac 

4d79 : 

ff 19 

00 

02 

00 

aO 

19 

00 

af 


Listing 13. 


Name 

: shadow2.makro 4d4l 4d72 

4d4l 

: 02 00 00 

aO 19 04 02 01 

13 

4d49 

: 01 00 al 

19 00 02 00 aO 

27 

4d51 

: 19 00 04 

02 00 aO 19 00 

15 

4d59 

: 04 02 00 

aO 19 00 04 02 

18 

4d6l 

: 00 aO 19 

04 02 00 aO 19 

4d 

4d69 

: 04 02 00 

al 59 00 04 02 

4c 

4d71 

: ff al 59 

00 00 00 04 02 

ab 

Listing 14. 




Name : shadow3.makro 4d4l 4d7d 


4d4l : 

: 02 

00 

00 

aO 

19 

04 

02 

01 

13 

4d49 : 

: 01 

06 

06 

06 

06 

00 

al 

19 

a9 

4d51 i 

: 04 

04 

04 

04 

00 

02 

00 

aO 

2a 

4d59 : 

: 19 

03 

02 

00 

aO 

19 

00 

03 

4d 

4d6l : 

: 02 

00 

aO 

19 

00 

03 

02 

00 

cf 

4d69 : 

: aO 

19 

00 

03 

02 

00 

aO 

19 

cb 

4d71 : 

: 04 

02 

00 

al 

59 

04 

04 

04 

78 

4d79 : 

: 04 

00 

02 

ff 

00 

aO 

19 

00 

67 


Listing 15. 


Name 

: shadow4.makro 


4d4l 4d85 

4d4l 

: 02 

00 

00 

aO 

19 

04 

02 

01 

13 

4d49 

: 01 

04 

04 

04 

04 

06 

06 

06 

63 

4d51 

: 06 

00 

al 

19 

00 

00 

00 

04 

eb 

4d59 

: 04 

04 

04 

02 

00 

aO 

19 

03 

10 

4d61 

: 02 

00 

aO 

19 

01 

03 

02 

00 

df 

4d69 

: aO 

19 

01 

03 

02 

00 

aO 

19 

Ob 

4d71 

: 01 

03 

02 

00 

aO 

19 

04 

02 

5b 

4d79 

: 00 

al 

59 

04 

04 

04 

04 

00 

91 

4d81 

: 00 

00 

02 

ff 

04 

00 

02 

00 

4a 

Listing 16 
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SOFTWARE 


Zwei zu Null 
für den C 128 

Der unangefochtene Software-Bestseller des 
letzten halben Jahres war GEOS 2.0. Wir haben für Sie schon einen 
kurzen Blick auf die brandneue C 128-Version geworfen. 
Welche Vorteile bietet die neue Version? 


I mmer wenn eine neue Version eines populären Pro¬ 
gramms angekündigt wird, kommen zwei grundsätzli¬ 
che Fragen auf: Erstens, ob sich der Umstieg (vornehm 
auch »Upgrade« genannt) lohnt, zweitens, ob die alten Pro¬ 
gramme weiterverwendet werden können. Zu Punkt 1 sind 
wir der Meinung, daß die 79 Mark gut angelegt werden. Als 
Gegenwert erhalten Sie ein System, das in allen Punkten 
besser geworden ist. Alleine die Tatsache, daß der frühere 
GeoWrite Workshop nun komplett ins Grundsystem einge¬ 
gangen ist, rechtfertigt den Umstieg - früher mußte man 119 
Mark für ein besseres Textsystem berappen. 

Um die zweite Frage aufzunehmen: Bleibt die zweite Ver¬ 
sion kompatibel? Auf jeden Fall. Derjenige Teil von GEOS, 
der zum Ablaufen von Applikationen nötig ist, hat sich näm- 

G4€ 



lieh effektiv nicht geändert. Positiv ist, daß nunmehr drei 
GEOS-Laufwerke (zwei echte Floppies und RAM-Erwei- 
terung) unterstützt werden. Die Dateien des alten GeoWrite 
128 werden problemlos eingelesen. 

Doch eine einschneidende Veränderung betrifft diejeni¬ 
gen, die noch keinen 80-Zeichen-Monitor(RGB-Anschluß) 
ihr eigen nennen: GeoWrite 128 sowie die Zusatzprogram¬ 
me laufen fortan nur noch im 80-Zeichen-Modus. Dies ist 
eigentlich sinnvoll, um den C128 voll auszureizen, doch 
sollte man es vor dem Kauf wissen. 

Also bleibt festzuhalten, daß der Umstieg auf GEOS 128 
2.0 für alle, die im 80-Zeichen-Modus arbeiten, voll und 
ganz zu empfehlen ist. Wo liegen nun die genauen Vorzüge 
der Version 2.0? 

Viele neue Programme sind hinzugekommen, die vorher 
separat verkauft wurden, und was nicht absolut neu ist, 
wurde von Grund auf verbessert. Fangen wir mit den neuen 
Programmen an. 

Wie schon erwähnt, sind alle Teile des GeoWrite Work¬ 
shop 128 in GEOS 128 2.0 eingegangen. Nicht nur das: Da¬ 
bei wurde auch eine komplette Übersetzung ins Deutsche 
vorgenommen und das Rechtschreib-Prüfprogramm Geo- 
Spell 128 integriert. Ein derartig komplettes Textsystem wie 
die Kombination aus GeoWrite, GeoMerge, Text Grabber, 
Paint Drivers, GeoLaser und GeoSpell kann sich tatsäch¬ 
lich mit professionellen Ausstattungen vergleichen. Aller¬ 
dings ist die Arbeitsgeschwindigkeit nicht gestiegen. 

Von allen GEOS-Programmen hat der Anwender mit ei¬ 
nem am meisten zu tun: mit dem DeskTop. Was hier in der 
Version 2.0 geschaffen wurde, ist ein umfangreiches und 
komfortabel zu bedienendes Programm. Nahezu alle Funk¬ 
tionen lassen sich über Tastendrücke aufrufen. Die Datei- 
Piktogramme können farbig dargestellt sowie auch als 
Dateien-Gruppe selektiert werden; eine Dateien-Gruppe 
wird dann mit einem Handgriff verschoben, gelöscht, ko¬ 
piert, umbenannt etc. 

Es wäre noch soviel zu sagen ... 


Auch GeoPaint und die vielen Hilfsmittel wurden deutlich 
ergänzt. Herauszuheben sind die Änderungen an Foto- 
und Text-Manager, die dem schnelleren Arbeiten sehr zu¬ 
gute kommen. Um nun alle Vorteile des neuen GEOS 128 
2.0 zu erwähnen, ließen sich einige Seiten füllen. Einen 
ausführlichen Testbericht finden Sie in der Ausgabe 9/89 
des 64’er-Magazins. (Florian Müller/ef) 

MarktSTechnik Buchverlag, Hans-Pinsel-Str. 2, B013 Haar bei München, Tel. (089) 4613-0. 
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ines der Hauptanwen- 
l dungsgebiete des 
l Computers ist mit Si¬ 
cherheit die Textverarbei¬ 
tung. Doch ohne die richti¬ 
gen Programme »läuft 
nichts«. Ein Programm, 
dessen Version für den C 64 
Furore machte, ist der »Tex- 
tomat Plus«. Seit 1988 ist 
auch eine Version für den 
C128 erhältlich. 

An der Bedienung und 
dem Design des Program¬ 
mes hat sich kaum etwas 
geändert. Erfreulich ist 
aber, daß Data Becker dies¬ 
mal auf einen Kopierschutz 
verzichtete. Nach wie vor 
befindet man sich sofort 
nach dem Laden im Schreibmodus, ohne sich vorher durch 
unzählige Menüs quälen zu müssen. Dennoch ist das ge¬ 
samte Programm menügesteuert. In der untersten Zeile 
werden die verfügbaren Funktionen eingeblendet, nach 
Anwahl eines Menüpunktes mit den Cursortasten und 
< RETURN > erscheinen weitere Untermenüs. Viele 
Funktionen können ähnlich wie bei Vizawrite aber auch di¬ 
rekt per Kurzwahl abgerufen werden. So wurde der optima¬ 
le Kompromiß zwischen Menüsteuerung und Steuerung 
durch Befehle gefunden. Das Programm verfügt über alle 
notwendigen Standardfunktionen wie Trennvorschläge, 
Diskettenbefehle, Directory, Floskeln, Tabulatoren, Suchen 
und Ersetzen, Kopieren, Verschieben, Löschen, Spei¬ 
chern, Laden, Drucken und natürlich Editieren von Text. 
Die Blockfunktionen arbeiten dabei allerdings leider nur 
zeilenweise. Schade ist auch, daß im Text bei der Eingabe 
am Bildschirm nurdasWord-Wrappingausgeführtwird, an¬ 
dere Features wie Blocksatz sind nur beim Ausdruck oder 
Text-Zeigen zu sehen. Fügt man nachträglich Text ein, oder 


Textomat 

Plus 128 

Der »Textomat Plus« von Data Becker gehörte 
auch schon auf dem C64 zu den »Klassikern«. 
Durch die Umsetzung für den »großen Bruder« 
können auch C128-Besitzer auf diese hervorra¬ 
gende Textverarbeitung zurückgreifen. 

ändert man im Format-Menü die Anzahl der Zeichen pro 
Bildschirmzeile (einstellbar von 40 bis 240, der Schirm 
scrollt dann waagerecht), passiert es, daß sogar die Word- 
Wrap-Formatierung nachträglich zerstört wird. Dann hilft 
nur noch, den Text zu speichern, den Textspeicher zu lö¬ 
schen und dann wieder zu laden. 

Besonders hervorzuheben ist die Möglichkeit, Text direkt 
per Akustikkoppler zu senden oder Grafik in Texte einzu¬ 
binden. Auch die Druckeranpassung ist vorbildlich gelöst, 
sie geschieht in einem eigenen Programmteil. Das deut¬ 
sche, 185seitige Handbuch führt auch für Einsteiger ver¬ 
ständlich ausführlich in die Bedienung ein und erklärt alle 
Funktionen. 

Das Programm »Textomat Plus« ist insgesamt ein sehr 
gut gemachtes Textprogramm, das jedem C128-Benutzer 
mit gutem Gewissen empfohlen werden kann. 

(Nikolaus Heusler/ag) 

Data Becker GmbH, MerowingerstraBe 30,4000 Düsseldorf; Textomat Plus 128, Best. Nr. 370502, 
Preis 99 Mark 


Datamat Plus 128 


A uch der »Datamat« 
stammt aus dem Hau¬ 
se Data Becker und 
wurde bekannt als Version 
für den C 64. Die Version für 
den »großen Bruder« wurde 
jedoch, vor allem was die Bedienerfreundlich¬ 
keit betrifft, gründlich überarbeitet. So kann 
jetzt praktisch das gesamte Programm über 
Pull-Down-Menüs bedient werden, wodurch 
ein unkompliziertes Arbeiten mit dem Pro¬ 
gramm ermöglicht wird: In einer Menüzeile 
stehen die Hauptmenüpunkte zur Auswahl. 

Wählt man einen davon an, klappt, ähnlich 
wie ein Rollo, ein Untermenü mit weiteren 
Funktionen herunter. Diese Art der Bedie¬ 
nung kennen Sie von Geos. 

Aber auch die »inneren Werte« von Datamat 
Plus 128 können sich sehen lassen. Wie sich 
das für ein professionelles Programm gehört, 
kann die Maske der Datei frei festgelegt wer¬ 
den, bei einer Adreßdatei wären dies etwa die 
Punkte »Vorname«, »Nachname«, »Adresse« und so weiter. 
So können Sie mit ein- und demselben Programm Namen, 
Schallplatten, Autos, was immer Sie wünschen, verwalten. 


Ein Datensatz darf maximal 
254 solcher Felder umfas¬ 
sen, die maximale Anzahl 
der Sätze ist nur durch die 
Kapazität der Diskette be¬ 
grenzt. Verschiedene Mög¬ 
lichkeiten zum Schutz der Datei, beispiels¬ 
weise Paßwörter, können genutzt werden. Da 
das Programm komplett in Maschinenspra¬ 
che geschrieben ist und nicht nachlädt, ist es 
auch ordentlich flink. Durch Export- und Im¬ 
portfunktionen existiert eine Schnittstelle zu 
anderen Programmen (zum Beispiel Textver¬ 
arbeitung). 

Alle wesentlichen Standardfunktionen sind 
vorhanden, beispielsweise kann die Bild¬ 
schirmdarstellung wahlweise im 40- oder 80- 
Zeichen-Modus erfolgen. Das knapp hundert 
Seiten umfassende Handbuch geht einge¬ 
hend auf die Bedienung ein, hat man es ein¬ 
mal nicht zur Hand, kann fast überall im Pro¬ 
gramm eine Hilfefunktion abgerufen werden, 
die Details erläutert. (Nikolaus Heusler/ag) 

Data Becker GmbH, MerowingerstraBe 30,4000 Düsseldorf; Datamat Plus 128, Best. Nr. 370509, 
Preis 99 Mark 


Datamat Plus für den Commodore 128 ist ein 
hochentwickeltes Dateiverwaltungsprogramm, 
das jeden Anwender nicht zuletzt durch seine gu¬ 
te Benutzerführung überzeugt. 
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KURS 


F ast jeder etwas fortgeschrittene Basic-Programmierer 
stand schon einmal staunend vor dem seltsamen Zah¬ 
lendschungel, der von einem Maschinensprache-Mo¬ 
nitor erzeugt wird und wußte nicht, was er damit anfangen 
sollte. In diesem Kurs werden Sie lernen, daß der Monitor 
ein durchaus leistungsfähiges Werkzeug darstellt, das 
auch der Basic-Programmierer hervorragend einsetzen 
kann, wenn er weiß, wie der Monitor bedient werden muß. 

Natürlich geht dies alles nicht ohne Theorie, aber der 
Kurs ist so gestaltet, daß Sie alles gleich an Ihrem C128 te¬ 
sten können. Dazu sollten Sie Basic-Kenntnisse mitbrin¬ 
gen; wenn Sie gar Maschinensprache beherrschen, wird 
Ihnen der Kurs noch mehr helfen, erforderlich ist das je¬ 
doch nicht. 

Zur Funktion des Monitors: Zunächst einmal dient der 
Monitor nur zum Zugriff auf den Speicher des Computers. 
Dies klingt nicht sehr interessant, aber man muß sich nur 
vor Augen führen, wie wichtig der Speicher für unseren 
Computer ist. 

Aufgrund der Befehlsstärke des Basic 7.0 kann man fast 
vergessen, daß auch ein Basic-Programm nichts anderes 
als eine Ansammlung von Speicherinhalten ist. Über Basic 
greift man mittels POKE, PEEK und WAIT auf den Speicher 
zu. Speicherzellen kann man als Fächer verstehen, in de¬ 
nen Informationen - die Speicherinhalte - untergebracht 
sind. Die folgenden Erläuterungen von Grundbegriffen mö¬ 
gen dem Fortgeschrittenen langweilig erscheinen, für den 
Anfänger sind sie unentbehrlich. Die Chips (zum Beispiel 
Sound-Chip SID 6581) und das Betriebssystem (das Pro- 


Befehl: 

X 

Syntax: 

X 

(keine Parameter) 

Wirkung: 

Verlassen des Monitors 

englisches Wort: 

exit (deutsch verlassen) 


Bild 2. Kurzübersicht zum Befehl X 


Jede Speicherzelle ist durch eine Adresse genau be¬ 
stimmt. Die Adresse ist eine Zahl von 0 (minimal) bis 65535 
(maximal). Beim C128 kommt noch die Speicherbank hin¬ 
zu, da wir die 128 KByte mit den Zahlen 0 bis 65535 nicht 
eindeutig beschreiben können. Auch damit werden wir uns 
noch auseinandersetzen. 

In unserem Computer gibt es nun Speicherplätze, die 
Auskünfte über das Basic-Programm, Grafik-Daten, das 
Basic-Programm selbst und seine Variablen oder ähnli¬ 
ches enthalten. Mit dem Monitor können wir diese Spei¬ 
cherzellen auslesen (die Inhalte der Speicherzellen anzei- 
gen lassen) und zurückschreiben (die Inhalte ändern und 
in die Speicherzelle aufnehmen). Dadurch werden uns Ein¬ 
flußnahmen auf den Computer möglich, die uns vorher ver¬ 
schlossen waren. 


MIT DEM TE 


AUF ENTDECKUNGSRE 


gramm, das den Computer vom Einschalten an dauernd 
steuert) benötigen viele Zugriffe auf den Speicher. Wenn 
sich der Computer irgend etwas merken will (zum Beispiel 
eine Zahl, einen Basic-Befehl oder einen String), so muß er 
es im Speicher - seinem Gedächtnis - ablegen. 

Der Speicher ist in Speicherzellen (auch Speicherplätze 
genannt) unterteilt. Jeder Speicherplatz kann eine Zahl von 
0 (minimal) bis 255 (maximal) oder einfach ein Zeichen (als 
ASCII-Code, zum Beispiel 65 für »A«) aufnehmen. Diese 
Speicherkapazität (ein Zeichen) heißt ein Byte. Haben Sie 
eine Einheit von 1024 Byte, so spricht man auch von einem 
Kilo-Byte oder kurz KByte. Weitere Unterteilungen bespre¬ 
chen wir beim Binärsystem. 


Monitor - Der Befehl zum Starten (über F8 erreichbar) 


Monitor -Einschaltmeldung 


PC SR AC XR YR SP 
FB000 00 00 00 00 F8 


Registeranzeige 


I 

Cursor als Aufforderung zur Eingabe von Befehlen 


Bild 1. Das erscheint beim Starten des Monitors 


Mit dem Monitor unterhalten wir uns ähnlich wie mit dem 
Basic 7.0 im Direktmodus: Wir geben Kommandos (meist 
mit Parametern) ein, die dann ausgeführt oder mit einer 
Fehlermeldung quittiert werden. Damit der Computer weiß, 
daß die Befehle an den Monitor gerichtet sind, müssen wir 
den Monitor starten. Dies geschieht am einfachsten über 
den Basic-Befehl MONITOR, der erfreulicherweise schon 
als Belegung der Funktionstaste <F8> (<SHIFT F7>) 
vorgesehen ist. 

Wenn wir MONITOR eingeben (oder einfach <F8> 
drücken), erhalten wir die Meldung »MONITOR«. 

Darunter steht die zweizeilige Register-Anzeige, die wir 
zunächst ignorieren wollen (sie ist ohnehin nur für 
Maschinensprache-Programmierer interessant). 

Diese Meldung »MONITOR« entspricht der Meldung 
»COMMODORE BASIC V7.0...«, die beim Reset ausgege¬ 
ben wird. 

Wenn nun der Cursor blinkt, ist er - wie im Basic - das 
Signal, daß der Computer auf weitere Eingaben wartet. 

Um noch einmal auf die Meldung »MONITOR« zurückzu¬ 
kommen: Diese Meldung signalisiert auch, daß - solange 
wir uns im Monitor befinden - sämtliche Basic-Befehle au¬ 
ßer Kraft sind. Von nun an werden nur noch die speziellen 
Monitor-Kommandos akzeptiert, von denen wir schon im 
nächsten Abschnitt den ersten kennenlernen werden. Die¬ 
se Monitor-Kommandos können übrigens - wie Basic-Kom- 
mandos- über < RUN/STOP > abgebrochen werden. 

In Bild 1 sehen Sie noch einmal, wie ein Bildschirm beim 
Starten des Monitors <F8> aussieht. 

Wie gesagt, im Monitor gelten die Basic-Befehle nicht 
mehr. Wenn man wieder in den Eingabemodus des Basic- 
Interpreters zurück möchte (vielleicht verspüren Sie so et- 
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was wie Heimweh...), ist dafür der einfachste Monitor-Be¬ 
fehl vorgesehen: Sie geben einfach X ein und drücken - wie 
in Basic - zur Bestätigung < RETURN >. An der Meldung 
»READY.« können Sie erkennen, daß Sie sich wieder im ver¬ 
trauten Basic befinden. X hat keine Parameter, das heißt 
Sie müssen keine weiteren Angaben machen. Dieser Be¬ 
fehl entspricht einem END in Basic. 

Hinweis: Der Befehl, der auf den Basic-Befehl MONITOR 
folgt, wird nach X nicht abgearbeitet! 

In Bild 2 finden Sie alle Informationen zu unserem ersten 
Befehl. Diese Kurzübersichten haben folgendes Schema: 

- Befehl (Buchstabe des Befehls) 

- Syntax (wie werden Parameter übergeben) 

- Wirkung 

- englisches Wort, von dem die Ein-Buchstaben-Abkür- 
zung abgeleitet ist 

Im Fall des Befehls X ist dies nicht sehr umfangreich, da 
der Befehl, wie gesagt, keine Parameter kennt. 

Nachdem wir so schnell den Einstieg in die Praxis gefun¬ 
den haben, müssen wir wieder zur Theorie. <X> ist näm¬ 
lich der einfachste aller Befehle (weshalb wir ihn zuerst be¬ 
sprochen haben), für etwas kompliziertere Anwendungen 
fehlen uns nur noch einige Grundkenntnisse und -begriffe. 


Wahrscheinlich haben Sie schon gehört, daß das Zah¬ 
lensystem, mit dem der Computer intern arbeitet, anstelle 
der Basis 10 (unser gebräuchliches Dezimalsystem) die 
Basis 2 hat. Die Ziffern sind also nicht 0 bis 9, sondern 0 und 
1. 0 wird in bezug auf elektronische Signale als »AUS«-, 1 
als »EIN«-Zustand verstanden. Wie wir eine Dezimalzahl in 
Potenzen der Basis 10 zerlegen können (1986 = 1 *10 3 + 
9*10 2 + 8*10’ + 6*10° = 1*1000 + 9*100 + 8*10 + 
6*1 = 1000 + 900 + 80 + 6 = 1986 q.e.d.), können wir 
auch so den Wert einer Binärzahl ins dezimale Format um- 
ndeln: 

0101101 = 1 * 2 7 + 0 * 2 6 +1 * 2 5 + 0 * 2 4 +1 * 2 3 + 1 * 2 2 
+ 0 * 2 ’ + 1 * 2 ° 

= 2 7 + 2 5 + 2 3 + 2 2 + 2 ° 
=128+32+8+4+1 
= 173 

Wie Sie sehen, wird einer binären Zahlenangabe das 
Prozentzeichen »%«vorangestellt, damit wir binäre von de¬ 
zimalen Zahlen unterscheiden können. 

Eine Binärziffer (englisch: binary digit) heißt Bit. Bit ist die 
Untereinheit von Byte; mit 8 Bit (siehe Beispiel) kann man 
genau ein Byte darstellen (0 < = 173 < = 255). 

Um Werte bis 65535 (65535 = 2 16 - 1) darzustellen, 
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brauchen wir genau 16 Bit = 2 Byte. Das eine Byte enthält 
den niederwertigen Teil (Low-Byte, kurz LB), das andere 
den höherwertigen (High-Byte, kurz HB). Die gesamte Zahl 
errechnet sich folgendermaßen: 

Zahl = LB + 2 8 * HB = LB + 256 * HB 
Die Bits des H B sind die höchstwertigen 8 Bit der gesam¬ 
ten Zahl, die Bits des LB die 8 niederwertigsten. 

Im übrigen können wir auch im Dezimalsystem ähnliche 
Zerlegungen, die uns für die Arbeit am Computer allerdings 
nichts bringen, durchführen: 

1986 = 86 + 10 2 * 19 = 86 + 100 *19 = 86 + 1900 
An unserem Beispiel der Binärdarstellung von 173 läßt 
sich auch der große Nachteil des Binärsystems für den 
Menschen aufzeigen: Um eine recht kleine Zahl wie 173 


Binäre Zahl: °/o1011101110 


Ziffer 

1 

0 

1 

1 

1 

0 

1 

1 

1 

0 

Stelle Nr. 

9 

8 

7 

6 

5 

4 

3 

2 

1 

0 


%1011101110 = 


0 *210 
+ 1 *211 
+ 1 *212 
+ 1 * 213 
+0 *214 
+ 1 *215 
+ 1 *216 
+ 1 *217 
+0 *218 
+ 1 *219 


(0 als 
(1 als 
(1 als 
(1 als 
(0 als 
(1 als 
(1 als 
(1 als 
(0 als 
(1 als 


Ziffer 

Ziffer 

Ziffer 

Ziffer 

Ziffer 

Ziffer 

Ziffer 

Ziffer 

Ziffer 

Ziffer 


für Stelle 0) 
für Stelle 1) 
für Stelle 2) 
für Stelle 3) 
für Stelle 4) 
für Stelle 5) 
für Stelle 6) 
für Stelle 7) 
für Stelle 8) 
für Stelle 9) 




= 0*1 + 1*2 + 1*4 + 1*8 + 0*16 + 1*32 + 1*64 
+ 1*128 + 0*256 + 1*512 
= 0 + 2 + 4 + 8 + 32 + 64 + 128 + 512 
= 2 + 4 + 8 + 32 + 64 + 128 + 512 
= 750 


Bild 3. Beispiel zum Rechnen mit Binärzahlen 


darzustellen, werden viele Ziffern (8!) benötigt; um eine 
Adresse (0 bis 65535) darzustellen, brauchen wir 16 Ziffern 
(LB+HB = 8 Bit + 8 Bit = 16 Bit = 16 Binärziffern): 
65535 = o/oiiiiiiii 11111111 

In Bild 3 und 4 finden Sie noch einige Informationen zum 
Binärsystem und zur LB/HB-Darstellung in Form von Bei¬ 
spielen. 

Nun gibt es ein Zahlensystem, das einen Kompromiß zwi¬ 
schen Binärsystem (für die Maschine leichtverständlich) 
und Dezimalsystem (für den Menschen sinnvoll, für die Ma¬ 
schine ungeeignet) bietet. Es hat die Basis 2“ = 16 und 
folgende Ziffern: 

0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F 

Die Buchstaben sind auch Ziffern; dabei entspricht A der 
dezimalen 10, B der 11, C der 12, D der 13, E der 14 und F 
der 15. 

Mit einer Hex-Ziffer (Hexadezimal kürzt man gerne mit 
Hex ab) kann man soviel verschiedene Werte wie mit vier 
(16=2 4 ) Binärziffern darstellen, nämlich die Werte 0 bis 15. 
Dennoch ist eine Umwandlung ins Binärformat und umge¬ 
kehrt viel einfacher. 1 Byte = 8 Bit = 2*4 Bit stellen wir mit 
zwei Hex-Ziffern dar, 1 Adresse = 2 Byte = 16 Bit = 4*4 
Bit mit vier Hex-Ziffern (zwei Ziffern HB, zwei für LB). Hex- 
Zahlen werden gekennzeichnet, indem der Zahl das Dollar¬ 
zeichen »$« vorangestellt wird. 


Beispiele: 255 = %11111111 

15 = o/ollll 

4096 = %1000000000000 
2459 = %100110010110 


= $FF 

= $F oder $0F 
= $1000 
= $099B 


Nun rechnen wir noch die Beispielzahl $D01A ins 
Dezimalsystem um: 


$D01A = $D • 16 3 + $0 * 16 2 + $1 * 16' + $A • 16° 


= $D • 4096 

+ $0 * 256 

+ $1 * 16 

+ $A * 1 

= 13 * 4096 

+ 0 * 256 

+ 1 * 16 

+ 10 * 1 

= 53248 

+ 0 

+ 16 

+ 10 

= 53248 

+ 16 

+ 10 


= 53274 





Geben Sie < + > und unmittelbar dahinter eine Dezi¬ 
malzahl ein (am < + > erkennt der Monitor, daß es sich um 
eine Dezimalzahl handelt) und drücken Sie < RETURN >. 
Da vor dem < + > kein Monitor-Befehl stand, erkennt TED- 
MON, daß er die Zahl nun in andere Zahlensysteme umzu¬ 
rechnen hat. Sie erhalten von Ihrer Dezimalzahl dann 

- die Hexadezimaldarstellung mit vorangestelltem <$> 

- wieder die Dezimaldarstellung (vorangestelltes < + >) 

- die Oktaldarstellung (??) mit vorangestelltem <&> 

- und die Binärdarstellung mit vorangestelltem <%> 
Spätestens bei den eingeklammerten Fragezeichen ha¬ 
ben Sie sicher gemerkt, daß da etwas noch nicht bespro¬ 
chen wurde: die Oktaldarstellung. Wie aus der Bezeich¬ 
nung hervorgeht, handelt es sich um das Zahlensystem mit 
der Basis 8 (2 3 ). Es ist zwar auch nicht schlecht zum Um¬ 
gang mit Binärzahlen geeignet (3 Bit werden zusammen¬ 
gefaßt und ergeben eine Oktalziffer), aber dagegen spre¬ 
chen mehrere Gründe. Erstens, weil wir mehr Stellen benö¬ 
tigen als beim Hexadezimalsystem und zweitens, daß das 
Oktalsystem als Zahlensystem veralteter 4-Bit-Computer 
längst unüblich ist. Lassen Sie sich von der oktalen Zahlen- 
angabb ,./it dem vorangestellten <&> also nicht stören. 
Dieses System werden Sie nicht brauchen. 

Im übrigen können Sie auch umgekehrte Umrechnun¬ 
gen durchführen; Sie müssen nur das richtige Symbol vor 
die Zahl setzen ($ für hex, % für bin, + für dez, & für okt). 
Probieren Sie einmal folgende Beispiele durch: 

$FF00 

+768 

%10110111011 eingeben und < RETURN > drücken 

$3455 

+3455 

Beachten Sie den Unterschied des Wertes der beiden 
untersten Beispielzahlen; $3455 ist eine Hexadezimalzahl 
mit dem Dezimalwert 13397 und somit größer als die Dezi¬ 
malzahl +3455. 

Weil die Hexadezimalzahlen so wichtig sind (daß sie 
auch praktisch sind, wird sich gleich zeigen), können wir sie 
auch vom Basic aus umrechnen. 

Da hexadezimale Zahlen die Ziffern A bis F enthalten, die 


Gehen wir von der Binärzahl %1011011100011101 aus. 


High-Byte 

Low-Byte 

% 

10110111 

00011101 


$ 

B 7 

1 D 


# 

183 

29 



%1011011100011101 = $ B7 ID = 183*256 + 29 


HB LB $B7 $1D 

Bild 4. Low- und High-Byte 
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nicht numerisch im Sinne des Dezimalsystems sind, müs¬ 
sen Hexadezimalzahlen in Form von Strings eingegeben 
werden (zum Beispiel A$= "FFFO"), in denen kein »$« vor¬ 
angestellt wird. Die Funktion DEC wandelt den Hex-String 
dann in eine Dezimalzahl um: A=DEC(A$) oder 
A=DEC("FFF0"). PRINT DEC("FCE2") ergibt beispiels¬ 
weise 64738. 

Die umgekehrte Umrechnung ist besonders nützlich; sie 
erfolgt über HEX$ ($ deshalb, weil das Ergebnis nur ein 
String sein kann, siehe oben): PRINT HEX$(64738) ergibt 
FCE2. 

Das Argument von HEX$ muß - im Gegensatz zum 
Monitor-Befehl $ - zwischen 0 und 65535 liegen. Das sind 
alle Werte, die sich mit 16 Bit = 2 Byte (LB und HB) = 2*2 


Die Basisadresse wird - was sofort auffällt - mit fünf Hex- 
Ziffern angegeben. Die erste Ziffer gibt die Speicherbank 
an. In diesem Fall ist es $F (dezimal 15), also die Speicher¬ 
bank des ROM-Bereichs. Die folgenden vier Ziffern sind die 
gewöhnliche Hex-Darstellung der Adresse. Auch bei der 
Angabe der Adressen für unser Beispiel haben wir übri¬ 
gens die fünfstellige Angabe gewählt. 

Die Basisadresse gibt an, auf welche Adresse sich die 
darauf folgenden Angaben beziehen. Der Basisadresse 
folgen nämlich die Hex-Darstellungen der Inhalte aller 
Adressen - beginnend mit der Basisadresse. 

Aus unserem Beispiel (sehen Sie auf Ihren Bildschirm, 
wenn Sie den Beispiel-Befehl eingegeben haben, oderauf 
dem bereits erwähntem Bild 5) geht hervor, daß $4C (76) der 


MONITOR 

PC SR flC XR VR SP 
; FB000 00 00 00 00 FS 

>F4000 4C 23 40 4C 09 40 4C 40 A3 20 CC FF 20 7fl 41 20 

>F4010 SD 41 20 12 41 20 38 52 fl9 00 35 15 58 40 37 40 

>F4020 00 FF FF 20 7fi 41 20 51 42 20 45 40 20 9B 41 AD 

t ■ 4 - 

DRSSELBE MIT S EVTES PRO SE I L_E 
MONITOR 

PC SR. AC XR VR SP 
; FB000 00 00 00 00 FS 


K;nawtEwat iaii;M:ia M 
«:■*:*« a «'in u i 
WTTnn: wp) =* 


>F4000 

4C 

23 

40 

4C 

09 

40 

4C 

4D 

«•sqwtGwai 

>F4008 

fl 3 

20 

CC 

FF 

20 

7fl 

41 

20 

iiiicta 

>F4810 

8D 

41 

20 

12 

41 

20 

38 

52 


>F401S 

A3 

00 

85 

15 

58 

4C 

37 

40 


>F4020 

00 

FF 

FF 

20 

7fl 

41 

20 

51 

nnt ir\a 

Bild 5. Beispielausdruck des M-Befehls 






Hex-Ziffern = 4 Hex-Ziffern darstellen lassen. Das Ergeb¬ 
nis wird so mit Nullen aufgefüllt, daß es vierstellig ist. 

Dies ist übrigens das praktische an den Hex-Zahlen: Um 
eine Adresse darzustellen, kommt man immer mit vier Stel¬ 
len aus, während man im Binärsystem bis zu 16 und im De¬ 
zimalsystem bis zu fünf benötigt. 

Wir können also festhalten, daß für die Angabe von 
Adressen das Hexadezimalsystem geeigneter ist als das 
Dezimalsystem. 

Der »Grundbefehl« der Monitore: M 


Der Befehl M, den wir nun kennenlernen wollen, ist der 
wichtigste Befehl eines Monitors. Die Abkürzung M wird da¬ 
her oft als Abkürzung für_ Monitor verstanden. M kommt 
aber von »memory dump*»(Speicherauflistung). 

Dieser Befehl ist bei jedem Monitor vorhanden, heißt fast 
immer M und hat auch immer ähnliche Syntax. Sogar die 
Disketten-Monitore, mit ihnen lassen sich Inhalte von Dis¬ 
ketten verändern, haben diesen Befehl. 

M erzeugt einen sogenannten »Dump« (Auflistung eines 
Bereichs, ohne bei der Ausgabe zu selektieren, das heißt 
nur bestimmte Werte auszugeben). 

Geben Sie bitte »M F4000 F4020« ein; in Bild 5 und auf 
Ihrem Bildschirm sehen Sie das Ergebnis. Ein »memory 
dump« hat folgendes Format: 

Basisadresse Hex-Angabe der Speicherinhalte: ASCII- 
Zeichen 

Besprechen wir die einzelnen Angaben: £<;•.. ■ 

Das >-Zeichen zeigt an, daß es sich um ein Dump des 
M-Befehls handelt. Dies ist für das Ändern der Speicherin¬ 
halte, was wir noch besprechen werden, elementar. 


Speicherinhalt der Adresse $4000 (16384) in Bank $F (15) 
ist, $23 (35) der von $4001 (16385) in derselben Bank, $40 
(64) der von $4002 (16386)... $8D (141) ist - siehe nächste 
Zeile des Dumps - der Inhalt von $4010 (16400) und so 
weiter. 

Auf die Hex-Bytes folgt der Doppelpunkt »:«. Dieser zeigt 
an, daß die numerischen Angaben an dieser Stelle aufhö¬ 
ren und ist vor allem für das Andern von Speicherinhalten 
wichtig. Der Doppelpunkt wird bei einer Eingabe als End¬ 
markierung einer Anweisung verstanden. 

Dem Doppelpunkt folgt die (inverse) ASCII-Darstellung 
der Speicherinhalte. Falls es sich um Speicherinhalte han¬ 
delt, die nicht als ASCII-Zeichen (Buchstaben, Ziffern, Gra¬ 
fikzeichen) darstellbar sind, wird ein reverser Punkt ».« aus¬ 
gegeben. Achtung: Dieser Punkt kann auch für den Code 
$2E stehen. Es empfiehlt sich also, auch die hexadezima¬ 
len Werte zu betrachten. 

Die ASCII-Darstellung ist vor allem dann wichtig, wenn 
Speicherbereiche, in denen ASCII-Codes abgelegt sind, 
untersucht werden sollen. Geben Sie einmal 
F424B« ein, und Sie finden rechts die Einschaltmeldung 
des C128 und links die Hex-Darstellung der ASCII-Codes. 

Hier sei auch darauf hingewiesen, daß der M-Befehl - wie 
alle Monitor-Kommandos - durch Drücken von <RUN/ 
STOP> abgebrochen werden kann. 

Nun wollen wir noch die Syntax von M, die bislang be¬ 
wußt übergangen wurde, besprechen. y 

Die normale Syntax ist »M Anfangsadressq_,Endadres- 
se«, wobei Anfangs- und Endadresse hexadezimal darge¬ 
stellt werden, solange nichts anderes angegeben wird. Ist 
die Angabe hexadezimal und hat fünf Stellen (Beispiele: 
F400C, 10400, 04001), kennzeichnet die höchstwertige 
Stelle die Speicherbank (0,1,F). Bei Angaben mit weniger 


M F41BB/J%- 


SONDERHEFT 44 


121 

















KURS 


hexadezimalen Stellen wird die voreingestellte Bank (0) 
verwendet. 

Als einer der wenigen Monitore überhaupt, bietet TED- 
MON die Möglichkeit, die Parameter auch in anderen Zah¬ 
lensystemen zu übergeben. Wichtige Einschränkung: Die 
Speicherbank kann nicht eingestellt werden, man kann nur 
mit der voreingestellten Konfiguration (Bank 0) arbeiten. 
Für Adressen, bei denen die Angabe der Speicherbank 
überflüssig ist, weil sie in dem Bereich liegen, der in allen 
Bänken gleich ist ($0000 bis $3FFF oder dezimal 0 bis 
16383), kann man damit aber ganz gut leben. Um die 
Adressen dezimal 700 bis 900 zu dumpen, gibt man einfach 
»M+700 + 900« ein. Da die Adressen dezimal 700 bis 900 in 
diesem gemeinsamen Bereich dezimal 0 bis 16383 liegen, 
müssen wir nicht die Speicherbank angeben und können 
auch problemlos die dezimale Darstellung der Parameter 
einsetzen. 

Man kann die Parameter für M teilweise weglassen. »M 
+700« beispielsweise gibt einen Dump ab 700 aus; es wer¬ 
den zwölf Zeilen (diese Anzahl ist unabhängig von 40- oder 
80-Zeichen-Darstellung) ausgegeben. Anschließend las¬ 
sen sich neue Eingaben machen. Mit M (ohne Parameter!) 
wird ab der letzten Adresse, die bearbeitet wurde, ein Dump 
ausgegeben. Dies ist vor allem dann sinnvoll, wenn man 
die Ausgabe über < RUN/STOP > abgebrochen hat und 
wieder fortsetzen möchte. 

In Bild 6 finden Sie eine Kurzübersicht zum M-Befehl. 

Wir wollen uns nun ein wenig mit der Funktionsweise des 
M-Kommandos beschäftigen. 

Der Monitor liest die Speicheradresse ähnlich wie der 
PEEK-Befehl im Basic. Diese werden zunächst in hexadezi¬ 
maler Form ausgegeben und dann als ASCII-Zeichen 
(Steuerzeichen als Punkt). Befinden wir uns in der 40-Zei- 
chen-Darstellung, werden 8 Byte pro Zeile, bei 80-Zeichen- 
Darstellung 16 Byte, ausgegeben. 

Listing 1 ist ein Basic-Programm, das den M-Befehl simu¬ 
liert. An dieser Stelle wollen wir darauf hinweisen, daß alle 
Listings mit dem Checksummer 128 einzugeben sind. Be¬ 
achten Sie dazu bitte die Hinweise auf Seite 158. Das erste 
Listing ist natürlich keine echte Alternative zum Monitor, der 
ja in Assembler geschrieben und folglich viel schneller ist. 
Am Listing kann man sich aber die Wirkungsweise des M- 
Befehls gut veranschaulichen. Die Variable ZL bekommt in 


Befehl: M ut^k. 

Syntax: M Anfangsadresse bis Endadresse 

Wirkung: Memory Dump von Anfangsadres¬ 

se bis Endadresse bei Weglassen 
der Endadresse: von der Anfangs¬ 
adresse 12 Zeilen lang bei Weglas¬ 
sen beider Parameter: 

englisches Wort: Memory dump (Speicherauflistung) 
Bild 6. Kurzübersicht zum Befehl M 

Zeile 220 zunächst den Wert 8. Der Rest der Zeile addiert 
noch 8 hinzu, falls die 80-Zeichen-Darstellung eingeschal¬ 
tet ist. Dies wird anhand der Speicherzelle 215 festgestellt, 
die dann den Wert 128 beinhaltet, wenn 80 Zeichen pro Zei¬ 
le eingestellt sind. Das weitere Programm entnimmt aus 
der Variablen ZL, wie viele Bytes pro Zeile angezeigt wer¬ 
den sollen. 

Die Eingaben, die das Programm fordert, müssen mit 
Ausnahme der Bank, die dezimal angegeben wird, hexade¬ 
zimal sein (wie die DEC-Befehle in den Zeilen 250/260 zei¬ 
gen, die die hexadezimale Eingabe in einen dezimalen 
Wert umwandeln, damit das restliche Basic-Programm da¬ 
mit arbeiten kann). 

Nun hätten wir die Funktionsweise und die Syntax des M- 


100 

REM ***************************** 

< I IA> 

110 

REM * * 

< IQB> 

120 

REM * SIMULATION DES MONITÜRBE- * 

< I28> 

130 

REM * * 

< I A9> 

140 

REM » FEHLS 'M ’ MITTELS BASIC * 

< JIE> 

150 

REM » # 

< JQF> 

160 

REM *»*«•**»*«»»*•«***»«»*.*#.... 

< J2C> 

170 

REM » > 

<JAD> 

180 

REM « BY FLORIAN MUELLER « 

<GI2> 

190 

REM « . 

<GQ3> 

200 

REM *»*»***»**«**»»**......,.«,». 

<J2C> 

210 

S 

<1S7> 

220 

ZL=8 - B»<PEEKC215)«12S>: REM ANZAHL DER ZEIC 



HEN PRO ZEILE (B ODER 16) BESTIMMEN 

<0EC> 

230 

PRINT CHR*<13> CHR* <13)"MEMORY DUMP MITTELS B 



ASICCDOWNI” CHR*(7) 

< 144 > 

240 

INPUT "SPEICHERBANK <0,1,2,3 ODER 1S)”!8A 

<ev9> 

250 

INPUT "ANFANGSADRESSE";AN»! AN=DEC(AN*> 

<445> 

260 

INPUT ”ENDADRESSEC4SPACE>";EN*: EN«DEC<EN*> 

<042> 

270 

PRINT CHR*<13)"MEMORY DUMP *";AN*;" - *";EN*; 



" IN BANK"BA 

<3CN> 

280 

AD=AN: BANK BA 

<OTl > 

290 

DO UNTIL AD>EN 

<L33> 

300 

: PRINT CHR*(13)";RIGHT#(HEX*(BA),1);HEXS(A 



D>; 

<NSC> 

310 

: FÜR L-l TO ZL 

<6R8> 

320 

= = PRINT .RIGHT*(HEX*(PEEK<AD)),2);: AD-A 



D+l 

<2NJ> 

330 

: NEXT L 

<LA6> 

340 

; PRINT CHR*(1B); 

<P71 > 

350 

s FOR L=AD-ZL TO AD-1 

<20L> 

360 

: s I=PEEK <L) 

<DGU> 

370 

: : IF I<32 OR <I>127 AND I<160) THEN PRINT '• 



ELSE PRINT. CHR*(I); 

<VII> 

380 

: NEXT L 

<5S6> 

390 

LOOP 

<F5P> 

400 

RUN 

<L6M> 

Listing 1. Simulation des M-Befehls in Basic 



Befehls besprochen. Da M unser erster variantenreicher 
Befehl ist, ging dies noch etwas mühselig; in Zukunft müs¬ 
sen wir aber nicht mehr die Unterbrechungsmöglichkeit 
durch < RUN/STOP > oder die Darstellung der Parameter 
in anderen Zahlensystemen und andere grundsätzliche 
Dinge besprechen. Außerdem sind die anderen Befehle 
viel einfacher, und oft werden wir uns sehr kurz fassen kön¬ 
nen. Wenn Sie aber mit dem M-Befehl umgehen können, 
haben Sie eine große Hürde in der Anwendung des Moni¬ 
tors genommen. 

Vielleicht haben Sie sich gefragt, was denn der M-Befehl 
für einen Nutzen hat. Diese Frage ist durchaus berechtigt, 
aber wir hoffen, daß die Anwendungsbeispiele, die wir im 
folgenden durchprobieren, zeigen, daß man mittels M an 
viele Informationen herankommt. 

Beispiel 1: 

Lassen Sie sich doch einmal das Betriebssystem anzei- 
gen (das Maschinenprogramm, das unmittelbar nach dem 
Einschalten des Computers aktiviert wird und alle software¬ 
mäßigen Vorgänge steuert) oder den Basic-Interpreter. Die¬ 
se beiden Programme sind fest eingebaut und können mit 
»M F4000 FF000« auf den Bildschirm gebracht werden. Vor 
allem die ASCII-Darstellung auf der rechten Seite des Aus¬ 
drucks zeigt dann Basic-Befehlswörter, Fehlermeldungen 
und so weiter. 

Beispiel 2: 

Im Speicher beinhalten manche Adressen wichtige Wer¬ 
te für den Computer in Form von Zeigern. Ein Zeiger be¬ 
steht aus zwei Byte, dem Low- und High-Byte einer Adres¬ 
se. 

Im Zeiger $2D/$2E ($2D enthält das LB, $2E das HB) ist 
die Anfangsadresse des aktuellen Basic-Programms ge¬ 
speichert. Geben wir also »M 2D 2E« ein. Da der Monitor im¬ 
mer nur ganze Zeilen anzeigt, erhalten wir nicht nur die bei¬ 
den Werte aus $2D und $2E, sondern auch weitere Zahlen, 
die uns aber an dieser Stelle nicht interessieren. 

Die beiden am weitesten links stehenden Hex-Bytes sind 
natürlich die Inhalte von $2D und $2E, wie wir der Basis¬ 
adresse ($0002D=$2D in Bank $0) entnehmen können. In 
der Regel erhalten wir $01 für $2D. $01 ist also das LB der 
Adresse, ab der das Basic-Programm beginnt. Der zweite 
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Wert ist das HB; hierfür erhalten wir direkt nach dem Ein¬ 
schalten $1C. Falls wir die hochauflösende Grafik einge¬ 
schaltethaben, ist es $40. Die Adresse ist also $1C01 bezie¬ 
hungsweise $4001, falls der Bereich für hochauflösende 
Grafik reserviert ist. 

Mit Hilfe des $-Befehls zur Umrechnung einer Hex-Zahl 
ins Dezimalformat können wir noch die dezimalen Werte 
berechnen lassen. Zur Überprüfung des Ergebnisses kön¬ 
nen Sie mit X ins Basic zurückgehen und dort über »PRINT 
PEEK(45)+256*PEEK(46)« das Ergebnis prüfen, das vom 
genannten Basic-Ausdruck allerdings in dezimaler Form 
ausgegeben wird. 

Die Endadresse des Basic-Programms ist immer in 
$1210/$1211 (dezimal 4624/4625) gespeichert. Mit dem Mo¬ 
nitor ist also »M 1210 1211« einzugeben. Die weitere Be¬ 
handlung entspricht dem Auslesen des Zeigers ($2D/ 
$2E) auf den Basic-Anfang. 

Vom Basic aus können Sie Ihr Ergebnis diesmal mittels 
»PRINT PEEK(4624)+256*PEEK(4625)« prüfen. 

In den Ausdrücken zur Berechnung der Zeigerinhalte 
können Sie übrigens gut die Formel Wert = LB + 256*HB« 
erkennen. Bei der Berechnung über den Monitor-Befehl $ 
sehen Sie, daß man im Hexadezimalsystem nur die Stellen 
des HB als erste zwei Stellen, die des LB als letzte zwei Stel¬ 
len einsetzen muß, um den gesamten Wert zu erhalten. 
Beispiele: LB=$12,HB=$34 = Wert = $3412 
LB=$E2,HB=$03 = Wert = $03E2 

Dieses Verfahren, die Stellen des HB als höherwertige 
Stellen einzusetzen, ist mathematisch völlig korrekt; ähn¬ 
lich geht man vor, wenn man im lOer-System bei der Multi¬ 
plikation einer Zahl mit einer Zehnerpotenz die Zahl als lin¬ 
ke Stellen, die Nullen als rechte Stellen verwendet: 54*100 
= 54 00 = 5400 

Zum Abschluß des M-Befehls (dieses Kommando wer¬ 
den wir nun dauernd verwenden) noch zwei Hinweisi 

Erster Hinweis: Schalten Sie einmal auf die 40-Zeichen- 
Darstellung um und geben »M+1024+2023« ein. Was auf 
dem Bildschirm erscheint, ist nichts anderes als der Inhalt 
des40-Zeichen-Bildschirmspeichers. Ein Auslesendes 80- 
Zeichen-Bildschirmspeichers ist mit dem Monitor leider 
nicht möglich. 

Zweiter Hinweis: Wenn das Basic-Programm in Form ei¬ 
nes Hex-Dumps ausgegeben werden soll, können Sie die 
Parameter (Anfangs- und Endadresse) so herausfinden, 
wie wir es schon beim Auslesen der entsprechenden Zei¬ 
ger getan haben. Sie werden fast das ganze Programm bei 
der ASCII-Darstellung wiederfinden, aber kein Befehls¬ 
wort. Diese werden nämlich als I-Byte-Werte (sogenannte 
Token, mehr darüber später) im Speicher abgelegt, die 
dann meist als Grafikzeichen erscheinen. Der Basic-Befehl 
LIST muß diese Token erst mit Hilfe einer Berechnungsrou¬ 
tine und einer Umwandlungstabelle in Klartext - die Be¬ 
fehlswörter - umwandeln, der bei LIST ausgegeben wird. 
Der Grund für diese Prozedur ist, daß I-Byte-Werte leichter 
und schneller bearbeitet werden können als mehrere Bytes 
umfassende Befehlswörter. 

Das Ändern von Speicherzellen 
mit Memory Dump 

Im letzten Abschnitt wurde Ihnen für die Anzeige von > am 
Anfang jeder Dump-Zeile nur die Erklärung gegeben, daß 
dieses Zeichen es zuläßt, die Speicherinhalte der ange¬ 
zeigten Adressen zu ändern. 

Geben Sie bitte »M 1008« ein; Sie werden sehen, daß in 
diesem Bereich die Belegungen der Funktionstasten ge¬ 
speichert sind. Wenn Sie nun mit dem Monitor die ange¬ 
zeigten Speicherinhalte ändern wollen, geht dies ganz ein¬ 


flL 


fach: Gehen Sie mit dem Cursor auf die Stelle, die geändert 
werden soll, und führen Sie die Änderung durch. Sie kön¬ 
nen sowohl die Adresse als auch die Hex-Bytes ändern. 
Das Ändern der ASCII-Codes wird ignoriert. Drücken Sie 
dann < RETURN > zur Bestätigung, und die Änderungen 
werden übernommen. Die Zeile wird noch einmal ausgege¬ 
ben, damit auch die ASCII-Codes an die neuen Speicherin¬ 
halte angepaßt werden. 

Daß auf so einfache Weise ein Speicherinhalt geändert 
werden kann, ist darin begründet, daß das >-Zeichen am 
Anfang der Zeile ein gültiger Monitor-Befehl ist. 

Seine Syntax ist > Basisadresse Speicherinhalte, zum 
Beispiel > 100A 42 45 49 53 50 (siehe Bild 7). 

Wenn Sie jedoch die Anzeige unseres Beispiels »M 
F4000 F4020« ändern wollen, erkennen Sie an der nochma¬ 
ligen Anzeige der Zeile, daß die Änderungen nicht über¬ 
nommen wurden. Die Erklärung ist ganz einfach: Es han¬ 
delt sich um einen Speicher, der nicht beschreibbar ist. Da 
fast alle Speicherzellen in Bank 15 ($F) ROM-Speicherzel- 
len sind, kann man die Adressen $4000 bis $4020 in Bank 
$F nicht ändern, denn die grundlegende Eigenschaft von 
ROM-Speichern ist die, daß seine Inhalte nicht geändert 
werden können. 

Die Abkürzung ROM ist Ihnen unter Umständen noch 
nicht bekannt, weshalb wir hier die Begriffe ROM und RAM 
besprechen wollen. 

Der Großteil des Speichers unseres C128 ist RAM (Ran¬ 
dom Access Memory). Random Access Memory heißt, daß 
es sich um Speicher handelt, auf den in beliebiger Form zu¬ 
gegriffen werden kann. RAM-Speicherzellen können also 
sowohl beschrieben als auch ausgelesen werden. Daher 
übersetzt man RAM mit »Schreib/Lese-Speicher«. 

Der Nachteil des RAM-Speichers ist, daß er beim Aus- 
scha^en des Computers gelöscht wird. Darum ist der RAM- 


Befehl: 

Syntax: 


> 


>Basisadresse Bytel Byte2 ... 
ByteX 

Wirkung: Im Speicher werden ab der Basis¬ 

adresse die der Basisadresse 
folgenden Bytes abgelegt, 
englisches Wort: - 


Bild 7. Kurzübersicht zum Befehl > 

Speicher für ein Betriebssystem, das man ja immer benö¬ 
tigt, ungeeignet. 

ROM-Speicher (Read Only Memory) kann - wie die engli¬ 
sche Bezeichnung »read only« sagt, nur gelesen werden, 
Schreibzugriffe sind dagegen nicht möglich. Der große Vor¬ 
teil ist, daß die Daten im ROM beim Ausschalten nicht ver¬ 
lorengehen. 

Das Programm, auf das der Computer immer wieder zu¬ 
greift, nämlich das Betriebssystem, ist im ROM gespei¬ 
chert. 

Kurz: Es besteht keine Möglichkeit, bestimmte Speicher¬ 
zellen zu ändern; dies wäre allerdings auch nicht sinnvoll. 

Das Überschreiben von RAM-Zellen ist eine Anwen¬ 
dung, die wir rioch etwas genauer besprechen wollen, zum 
Beispiel das Ändern von ASCII-Tabellen (also reiner Text) in 
Maschinenprogrammen. 

Beim Ändern von solchen Maschinenprogrammen (ge¬ 
nauer gesagt: der ASCII-Tabellen solcher Maschinenpro¬ 
gramme) geht man in drei Schritten vor: 

1. Programm mittels DLOAD oder BLOAD laden 

2. Vom Monitor aus Änderungen durchführen 

3. Monitor verlassen (X) und das Programm mittels DSAVE 
oder BSAVE speichern. 

Uns wird hier natürlich der zweite Schritt am meisten in- 
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teressieren, zunächst aber wollen wir klären, welche Pro¬ 
gramme wir bei unserem jetzigen Kenntnisstand bearbei¬ 
ten können und woran man ein Maschinenprogramm er¬ 
kennt. 

Vorher noch zwei wichtige Hinweise. Erstens: Sie benöti¬ 
gen, wie gesagt, keine Maschinensprache-Kenntnisse, es 
reicht, wenn Sie diesen Kurs bis zu dieser Stelle verfolgt ha¬ 
ben. Zweitens: Natürlich kann man auch Basic-Programme 
mit dem Monitor ändern, doch gibt es dazu ja den Basic- 
Editor, der viel komfortabler ist. Lediglich für spezielle Än¬ 
derungen an Basic-Programmen benötigt man den Moni¬ 
tor, und das werden wir an späterer Stelle behandeln. 

Die Maschinenprogramme, die wir schon manipulieren 
können, müssen bestimmte Bedingungen erfüllen: 

1. Das Programm muß mindestens aus einer Basic-Zeile 
bestehen, die beim LISTen erscheint (zum Beispiel eine 
Zeile »1986 SYS 7183« oder »1986 SYS PEEK(45)+256* 
PEEK(46)+350«), 

2. Das Programm muß mit dem Basic-Befehl RUN gestar¬ 
tet werden können (zum Beispiel mit RUN " FILENA¬ 
ME" oder DLOAD"FILENAME" und anschließendem 
RUN). 

3. Das Programm muß mit DLOAD ladbar sein (und zwar 
so, daß man es danach mit RUN starten kann). 

4. Das Programm muß nach dem Laden über DLOAD auch 
mit DSAVE gespeichert werden können. 


Befehl: 

H 

Syntax: 

H Anfangsadresse Endadresse 

Bytel ... ByteX 

oder 

H Anfangsadresse Endadresse 


"Suchtext 

Wirkung: 

sucht nach den Bytes oder den 
ASCII-Codes des Suchtextes im 


Bereich von Anfangsadresse bis 
Endadresse. 

englisches Wort: 

Hunt (englisch jagen) 


Bild 8. Kurzübersicht zum Befehl H 


Laden Sie nun bitte ein beliebiges Programm, das Sie 
manipulieren wollen. 

Springen Sie dann mit <F8> in den Monitor und dum- 
pen Sie ab der Anfangsadresse des Basic-Programms (in 
der Regel $1C01) bis zur Endadresse. Wie man Anfangs¬ 
und Endadresse eines Basic-Programms im Speicher mit 
dem M-Befehl feststellt, hat der letzte Abschnitt gezeigt. 

Wenn Sie beim Dump eine Stelle finden, an der interes¬ 
sante ASCII-Codes abgelegt sind, drücken Sie zur Unter¬ 
brechung des Dumps einfach < RUN/STOP >. Nehmen wir 
an, Sie haben folgende Zeile entdeckt: 

> 01F85 28 43 29 20 31 39 38 36 20 42 59 20 58 59 5A 0D :(C) 
1986 BY XYZ. 

Die ASCII-Darstellung, rechts vom Doppelpunkt, er¬ 
scheint bei Ihnen natürlich invers. Außerdem werden Sie 
nach »M 1F85« diese fiktive Zeile nicht erhalten. 

Diese Zeile soll uns nur als ausführliches Beispiel die¬ 
nen, wie man Änderungen durchführt. 

Wenn Sie das Beispiel, verfolgen wollen, geben Sie ein¬ 
fach die oben stehende Zeile bis zum Doppelpunkt so ein, 
wie Sie dort steht; dann speichern Sie aber ein eventuell 
vorher geladenes Programm nach den Änderungen nicht, 
denn Sie haben es unter Umständen durch diese Zeile zer¬ 
stört! 

Nun wollen wir an unserer Beispielzeile eine kleine Text¬ 
änderung durchführen, weil uns das Copyright stört. Unser 
neuer Text soll nun »NO COPYRIGHT!!!« lauten. Das letzte 
Byte ($0D=13) soll bestehen bleiben, da es sich um ein 
wichtiges Steuerzeichen handelt. 


Um die Änderung durchzuführen, fahren wir mit dem 
Cursor auf die erste 2 (im Hex-Byte $28 am Anfang der Zei¬ 
le) und überschreiben jetzt 15 Hex-Byte mit den ASCII- 
Codes unserer neuen Meldung: 

4E 4F 20 43 4F 50 59 52 49 47 48 54 21 21 21 

Nach der Bestätigung durch < RETURN > wird die Zeile 
neu aufgebaut und wir sehen nun folgendes Bild: 
>01F85 4E 4F 20 43 4F 50 59 52 49 47 48 54 21 21 21 
0D:NO COPYRIGHT!!!. 

An den ASCII-Codes können wir sofort und bequem er¬ 
kennen, daß die Änderung korrekt durchgeführt wurde. 

Nach dieser großen Manipulation fällt uns ein, daß der 
Text so viel schöner wäre: »NO COPYRIGHTS.«, wobei der 
Punkt am Ende des Textes wirklich erscheinen soll und kein 
Steuerzeichen ist! 

Diesmal müssen wir nicht gleich eine ganze Zeile än¬ 
dern, es reicht, an den letzten Bytes folgende Änderungen 
durchzuführen: 

1. das erste $21-Byte soll zum »S« werden 

2. das zweite $21-Byte soll zum Leerzeichen » « werden 

3. das dritte $21-Byte soll zum Punkt ».« werden 

Da wir nur drei von 16 Byte ändern müssen, lohnt es 
nicht, die ganze Zeile neu zu schreiben. Wir fahren nur mit 
dem Cursor auf das erste $21-Byte, überschceiben es mit 
»53«, dem Code für »S«, (das war Änderung 1, siehe oben). 
Dann positionieren Sie den Cursor auf das zweite $21-Byte 
auf die Ziffer 1 und überschreiben sie mit »0«, wir erhalten 
$20, den Code oder ein Leerzeichen (das war Änderung 2, 
siehe oben). Zu guter Letzt fahren wir auf die Ziffer 1 des 
nächsten $21-Bytes und überschreiben es mit »E«, so daß 
sich der Punkt-Code $2E ergibt. Nach diesen Änderungen 
drücken wir < RETURN > und erhalten folgende Zeile: 

> 01F85 4E 4F 20 43 4F 50 59 52 49 47 48 54 53 20 2E 
0D:Nti COPYRIGHTS .. 

Wir sehen auch hier, daß die Änderung übernommen 
wurde. Aber halt, da soll doch nur ein Punkt ausgegeben 
werden und rechts vom Doppelpunkt sind gleich zwei vor¬ 
handen. 

Nein, natürlich ist alles richtig: Der erste Punkt steht für 
den Code $2E, der zweite symbolisiert das nicht-druckbare 
Byte $0D und erscheint nicht wirklich. Hier kann man gut 
erkennen, daß in der ASCII-Darstellung Punkt nicht gleich 
Punkt ist; auf das Hex-Byte kommt es an (nur ein $2E-Byte 
ist ein echter Punkt). 

Wenn Sie ein Programm mit dem M-Befehl durchforsten 
und/oder ändern wollen, werden Sie bald merken, daß die 
Suche nach bestimmten Stellen innerhalb des Programms 
auf die Dauer recht mühselig ist. 

H ist die Abkürzung des englischen Verbs »to hunt«, wel¬ 
ches »jagen« heißt. 

Die Syntax ist »H Anfangsadresse Endadresse Bytel 
Byte2 Byte3 ... ByteX« (Kurzübersicht zum H-Befehl in Bild 
8), wobei die Anzahl der Bytes frei wählbar ist; mindestens 
ein Byte muß im durch Anfangs- und Endadresse umgrenz¬ 
ten Speicherbereich gesucht werden. Die Obergrenze für 

Gezielte Suche nach Bytes 
über den H-Befehl 


die Anzahl der Bytes ist einfach die Zeilenlänge (zwei Zei¬ 
len auf dem 80-Zeichen-Bildschirm, bei 40-Zeichen vier). 

Der Monitor gibt auf den H-Befehl hin alle die Adressen 
im fünfstelligen Hexadezimalformat aus, ab denen die ge¬ 
wünschte Bytefolge gefunden wurde. Sehen wir uns den 
neuen Befehl, auf den Sie bald nicht mehr verzichten wol¬ 
len, an einem Beispiel an. Geben Sie dazu bitte »H F0000 
F5000 52 45 53 54« ein. (-- ' > ‘ 

Der Monitor gibt dann die Adressen F0A80 und F4443 als 
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Ergebnis seiner Suche aus. Mit M können Sie nachprüfen, 
ob an den angegebenen Adressen wirklich die Bytes $52 
$45 $53 $54 stehen. Zur Adresse F0A80 ist eine wichtige 
Anmerkung zu machen: 

Wenn die Adresse x0A80 (x deshalb, weil die Speicher¬ 
bank bei Adressen, die in dem Bereich liegen, der allen 
Bänken gemeinsam ist, uninteressant ist) nach dem H- 
Befehl auf dem Bildschirm erscheint, ignorieren Sie bitte 
diese Angabe! Sie werden feststellen, daß immer, wenn die 
Adressen ab $0A80 im Suchbereich liegen, x0A80 als Er¬ 
gebnis gemeldet wird. Ab dieser Adresse merkt sich näm¬ 
lich der Monitor die Bytes, die gesucht werden sollen. Klar, 
daß ein Vergleich dieses Monitor-Suchpuffers mit sich 
selbst ein positives Suchergebnis ergibt! 

Die ASCII-Codes 


Eigentlich gehört dieser Hinweis ins Handbuch, aber selbst 
in den Anleitungen der uns bekannten C64-Maschinen- 
Monitore konnten wir meistens keinen ähnlichen Hinweis 
finden. 

Die Adresse des »Suchpuffers« ist von Monitor von Moni¬ 
tor verschieden; dieser läßt sich jedoch ausfindig machen, 
und wir möchten Ihnen an dieser Stelle das Verfahren vor¬ 
stellen, mit dem man den Bereich des Puffers feststellen 
kann. Dieses Verfahren wird für Sie eine gute Übung im 
Umgang mit dem Monitor-Kommando H sein. 

Suchen Sie nach einer seltenen Bytefolge wie $D0 $E0 
$F0 $00 $10 im ganzen Speicher: 

H 00000 FFFFF DO E0 F0 00 10 

Nacheinander werden Sie alle möglichen Adressen er¬ 
halten, die sich (mit 99prozentiger Sicherheit) nur in der 
Speicherbank unterscheiden, die Adreßangabe wird (fast) 
immer gleich sein. Sollten nicht alle angezeigten Adreßan- 
gaben gleich sein, suchen Sie noch nach einer anderen By¬ 
tefolge wie $E1 $D1 $F1 $01 $11. Streichen Sie (am Bild¬ 
schirm einfach mittels der DEL-Taste) alle Adreßangaben 
weg, die nicht bei beiden Suchbefehlen gemeldet wurden. 
Die einzige Adresse, die übrigbleibt, ist dann eindeutig die 
Anfangsadresse des Monitor-Suchpuffers. 

Falls bei unserem Suchverfahren etwas unklar war, sei 
noch der Hinweis gegeben, daß wir die Angabe der Bank 
ignorieren müssen; $F0A80 ist also nichts anderes als 
$00A80 und $10A80. 

Bei unserem ersten Beispiel dieses Abschnitts haben wir 
über »H F0000 F5000 52 45 53 54« übrigens nach der 
ASCII-Folge »REST« gesucht. Die Suche nach ASCII-Zei- 
chen wird eine der häufigsten Anwendungen des H-Be- 
fehls sein. Damit Ihnen dies leichter fällt, ist im TEDMON 
auch die Möglichkeit gegeben, nach ASCII-Codes zu su¬ 
chen. Diese wurde Ihnen bislang vorenthalten, aber jetzt 
sollen Sie es erfahren (in der Kurzübersicht wurde dafür 
diese Möglichkeit schon genannt). 

Wenn Sie im Bereich von $0000 bis $5000 in Bank $F 
(dezimal 15) suchen lassen wollen, ist auch folgende Ein¬ 
gabe möglich: 

H F0000 F5000 ’REST 

Das Apostroph signalisiert dem Monitor, daß ein ASCII- 
Text folgt, der vor der Suche in die entsprechenden Bytes 
umzuwandeln ist. Leider existiert diese Eingabemöglich¬ 
keit nur beim H-Befehl, obwohl man sie bei einigen anderen 
Kommandos sicher auch gerne hätte. Hier könnte man sich 
unter Umständen mit dem Suchpuffer behelfen, da die Zei¬ 
chen in ihm schon in umgewandelter Form vorliegen. 

Schon beim M-Befehl wurden die ASCII-Codes ange¬ 
sprochen, allerdings ohne Erklärung. 

Wie wir schon erwähnt haben, erkennt der Computer 
nicht die Zahlen und Zeichen so wie wir (wenn wir sie am 


Bildschirm sehen), sondern stellt Zahlen als elektronische 
Signale im Binärformat dar: Strom ein ist gleich »Bit ge¬ 
setzt« (1), Strom aus entspricht »Bit gelöscht« (0). 8 Bit zu¬ 
sammengefaßt erlauben 256 verschiedene Kombinationen 
(1 bis 255 und die 0), und ein solches Byte kann mit zwei He¬ 
xadezimalziffern dargestellt werden. Da der Computer zu¬ 
nächst einmal nur mit Zahlen rechnen kann, stellt er auch 
Zeichen (wie die Buchstaben und Grafikzeichen, aber auch 
die Ziffern wieO, 1, ...9) als elektronische Signale - effektiv 
also als Zahlen - dar. 

Dazu ein Beispiel: 

A = °/o01000001 = $41 = #65 (# verwenden wir fortan 
als Symbol für Dezimalzahlen, da es das geläufigste ist. 
Dieses Symbol kennt der TEDMON jedoch nicht). 

Statt PRINT "A" können wir in Basic auch PRINT 
CHR$(65) oder PRINT CHR$(DEC("41")) schreiben. 

Der CHR$-Befehl gibt nämlich zu einem ASCII-Code das 
betreffende Zeichen aus. Wenn Sie unser Beispielpro¬ 
gramm »M-Simulation« (Listing 1) ansehen, finden Sie bei 
der Ausgabe der ASCII-Darstellung, die in den Zeilen 340 
bis 380 erfolgt, den CHR$-Befehl wieder. 

Das Gegenstück ist der ASC-Befehl: PRINT ASC("A") 
ergibt 65. ASC sind die ersten drei Buchstaben der Abkür¬ 
zung ASCII. ASCII heißt »American Standard Code for In¬ 
formation Interchange«, übersetzt ins Deutsche »Amerika¬ 
nische Standardcodierung für den Datenaustausch«. Das 
Ziel dieser Codierung war, daß verschiedene Geräte Zei¬ 
chen untereinander ohne Probleme austauschen können. 
Leider ist dieses Vorhaben gescheitert, denn viele Herstel¬ 
ler weichen davon ab und verwenden eigene Codierungen. 
Wenigstens sind die ASCII-Codes der Commodore-Geräte 
untereinander einheitlich, sonst könnten Sie nicht einmal 
ein C64-Basic-Programm im C128-Modus laden. 

im Handbuch finden Sie im Anhang eine Tabelle der 
ASCII Sodes. Listing 2 gibt eine hexadezimale Tabelle der 
ASCII-Codes aus. Lassen Sie sich am besten die Tabelle 
auf dem Drucker ausgeben und hängen diese in der Nähe 
Ihres Computers auf. Sie werden diese Tabelle noch oft 
brauchen. 

Diese Tabelle umfaßt allerdings nicht die sogenannten 


100 

REM ********************* 


< I IA> 

110 

REM * # 


<IQB> 

120 

REM * ASCII - TABELLE * 


<I28> 

130 

REM * * 


< I A9> 

MO 

REM ##****#**###***##**** 


<JIE> 

150 

REM » * 


< JQF > 

160 

REM # FLORIAN MUELLER * 


< J2C> 

170 

REM * * 


< JAD> 

180 

REM ****#******#«#***»### 


<GI2> 

190 

3 


<6SR> 

2O0 

DO : INPUT "DRUCKER <D> ODER BILDSCHIRM 
Ai: LOOP WHILE A*<>"D" AND A*<>"B" 

<B)“i 

<01U> 

210 

IF A*="D" THEN BEGIN 


<7C0> 

220 

INPUT "GERAETENUMMER";G: INPUT "SEKUNDAERADRE 



SSE";S 


< U8B > 

230 

OPEN 4,S,S: CMD 4 


< TRS> 

240 

BEND 


< ORE > 

250 

: 


<3SF> 

260 

LE*=CHR*<32> : REM LEERZEICHEN 


<BAM> 

270 

Z*-"0123456789ABCDEF": REM ZIFFERN FUER 
AHLEN 

HEX-Z 

<T77> 

280 

PRINT SPC(2); 


<NSD> 

290 



<5SN> 

300 

FOR J - 1 TO 16 


<ENT> 

310 

: PRINT MID*(Z*,J,1)!LE*i 


<AF9> 

320 

NEXT J 


< BP5> 

330 

PRINT 


<54U> 

340 

: 


<2C9> 

350 

FOR J - O TO 15 


<9RK> 

360 

: PRINT MID*<Z*,J+1,1>;SPC<5) 


<U69> 

370 

: FOR K - 2 TO 15: IF K>7 AND K<10 THEN 

4O0 

<95R> 

380 

: : PRINT CHR*<J+<K*16));LE*; 


<97K> 

390 

: : IF K=7 THEN PRINT LE*;LE*;LE*;LE*; 


< 08L > 

400 

: NEXT K 


<5C5> 

410 

: PRINT 


<JMU> 

420 

NEXT J 


<RN5> 

430 

3 


<6SR> 

440 

IF A*="D" THEN PRINT« 4: CLOSE 4 


<OVE> 

Listing 2. Erstellen einer ASCII-Tabelle 
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Steuerzeichen. Zu den Codes $00 bis $1F sowie $80 bis 
$9F sind darum auch keine Zeichen ausgegeben. Bei $20, 
$A0 und $E0 finden Sie auch kein Zeichen. Hier handelt es 
sich jedoch nicht um Steuerzeichen, sondern um die Co¬ 
des für das Leerzeichen. 

Steuerzeichen - auch nichtdruckbare Zeichen genannt - 
lassen sich auch über PRINT ausgeben. Sie erzeugen also 
nicht direkt ein Zeichen, sondern rufen eine Steuerfunktion 
hervor. PRINT CHR$(7) erzeugt beispielsweise das akusti¬ 
sche Klingelzeichen. 

Die Eingabemodi des Betriebssystems 


Die Steuerfunktionen finden Sie in Bild 9 zusammengefaßt. 
Wenn wir mit dem Monitor Basic-Programme gegen LISTen 
schützen wollen, werden Sie merken, was sich mit den 
Steuerzeichen alles anstellen läßt! 

Lediglich zum Steuerzeichen »ESC« möchten wir noch 
einige Hinweise geben. Wenn Sie den ESC-Code (#27 = 
$1B) senden, wird das nächste Zeichen, das über PRINT 
gesendet wird, als ESC-Anweisung (zum Beispiel »A« zum 
Einschalten des automatischen Einfügemodus) behandelt. 
Damit werden wir uns noch genauer beschäftigen. 

Wir wollen aber zunächst nach ASCII-Zeichen suchen 
(mit dem H-Befehl). Dazu ist eine Umwandlung in den 
ASCII-Code erforderlich, die Ihnen mit einiger Übung leicht 
fallen wird. 

Für viele Zeichen gibt es einfache Regeln, um den ASCII- 
Code in Hex-Form zu bestimmen: 

Bei Ziffern (0 bis 9) wird einfach $30 dazugezählt; Bei¬ 
spiele: 0 = $30, 5 = $35, 9 = $39. 

Ähnlich geht es bei den Satzzeichen, die Sie über 
<SHIFT+Zifferntaste> erreichen (! = <SHIFT+1 >): 

In diesem Fall wird statt der $30 eine $20 dazugezählt. 
Beispiele:! = <SHIFT+1 > = $21; " = <SHIFT+2> = 
$22; ( = <SHIFT+8> = $28. 

Wenn wir nach dem Text »)1977« suchen wollen, der ja in 
der Einschaltmeldung des C128 (»(C)1977 MICROSOFT 
CORfi«) vorkommt, geht dies folglich über H F4000 FF000 
28 31 39 37 37. 

Wir suchen nur im ROM-Bereich (Bank 15 ab $4000), da 
die Einschaltmeldung logischerweise dort steht (sie muß ja 
auch nach dem Ausschalten des Computers vorhanden 
sein und darf deshalb nicht im RAM stehen). 

Im folgenden Abschnitt befassen wir uns ein wenig mit 
der Eingabe der Zeichen und der Umwandlung der Tasta¬ 
tureingaben in den ASCII-Code. Dies ist ein Thema, das 
zwar nur am Rande zum Bereich Monitor gehört, aber trotz¬ 
dem viele interessante Informationen vermittelt. 

Wenn Sie sich im Basic-Editor befinden, wird einfach je¬ 
des Zeichen, das Sie über Tastatur eingeben, direkt auf 
dem Bildschirm ausgegeben. Nebenbei wird noch der Cur¬ 
sor angezeigt. 

Beispiel: Sie drücken auf die Taste <A>, und A er¬ 
scheint auf dem Bildschirm. Sie drücken <SHIFT> und 
die <CLR/HOME>-Taste und der Bildschirm wird wie mit 
PRINT CHR$(147) gelöscht. Sie sehen also, daß hier jedes 
Zeichen - auch Steuerzeichen für Cursor etc. - ausgege¬ 
ben wird. Eine Eingabe wird mit < RETURN> beendet. 

Diesen Eingabemodus nennt man »normal mode« (nor¬ 
maler Modus), da - wie gesagt - jedes Zeichen direkt aus¬ 
gegeben wird und Steuerzeichen wie CLR/HOME direkt 
ausgeführt werden. 

Ein anderer Modus ist der sogenannte »quote mode« 
(Anführungszeichen-Modus oder Hochkomma-Modus). In 
diesem befindet man sich, wenn ein Anführungszeichen 
ausgegeben wird. Wird allerdings ein zweites ausgegeben, 
befindet man sich wieder im »normal mode«. 
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Wie bei allen Eingabemodi wird die Eingabe mit 
< RETURN > abgeschlossen. Tippen Sie bitte einmal fol¬ 
gende Zeichen ein (im Basic-Editor, nicht im Monitor): 

1CT PRINT " 

Drücken Sie nicht die < RETURN >-Taste! Denn wenn 
Sie sie drücken, so haben Sie Ihre Eingabe abgeschlos¬ 
sen. Es ist egal, in welchem Eingabemodus Sie die Zeichen 
eingegeben haben. »10 PRINT« wurde im »normal mode« 
eingegeben und nach dem »"« befanden Sie sich im »quote 
mode«. 

Der große Unterschied zwischen »quote mode« und »nor¬ 
mal mode« ist der, daß im »quote mode« Steuerzeichen (wie 
CLR/HOME)-mit Ausnahme von ESC und DEL-nicht aus¬ 
geführt werden, sondern als inverse Zeichen - meist Grafik¬ 
zeichen - erscheinen. Statt des Bildschirmlöschens wird, 
wenn Sie nach der oben stehenden Eingabe auf <SHIFT 
CLR/HOME> drücken, ein inverses Herz ausgegeben. 
Der Sinn des »quote mode« ist der, in Strings - die ja zwi¬ 
schen zwei Anführungszeichen stehen - Steuerzeichen 
einzubauen. Wenn Sie die Zeile 10 PRINT " inverses Herz" 
nämlich ausführen lassen, befindet sich das Programm 
nicht im »quote mode« und der Bildschirm wird gelöscht. 


Steuerzeichen 

ASCII-Code 

Unterstreichen ein * 

$02 

_ 

# 2 

Zeichenfarbe auf weiß stellen 

$05 

= 

# 5 

Klingelzeichen 

$07 

= 

# 7 

Tabulator 

$09 

= 

# 9 

Zeilenvorschub LINE FEED (LF) 

$0A 

— 

# 10 

SHIFT/C= blockieren 

$0B 

= 

# 11 

SHIFT/C= wieder entriegeln 
CARRIAGE RETURN 

$0C 

= 

# 12 

(Wage/ rückl.) 

$0D 

= 

# 13 

Text-Zeichensatz ein 

$0E 

= 

# 14 

Blinkmodus ein * 

$0F 

= 

# 15 

CURSOR DOWN (Cursor runter) 

$11 

= 

# 17 

REVERS ON (Revers ein) 

$12 

= 

# 18 

HOME (Cursor nach links oben) 

$13 

= 

# 19 

DELETE (Zeichen löschen) 

$14 

= 

# 20 

TAB (Tabulator setzen/löschen) 

$18 

= 

# 24 

ESCAPE (Sonderfunktionen) 

$1B 

= 

# 27 

CURSOR RIGHT (Cursor rechts) 

$1D 

= 

# 29 

Zeichenfarbe orange 

$81 

= 

#129 

Unterstreichen aus * 

$82 

= 

#130 

SHIFT RETURN 

$8D 

= 

#141 

Grafik-Zeichensatz ein 

$8E 

= 

#142 

Blinkmodus aus * 

$8F 

= 

#143 

Zeichenfarbe schwarz 

$90 


#144 

CURSOR UP (Cursor rauf) 

$91 

s= 

#145 

REVERS OFF (Revers aus) 

$92 

SS 

#146 

CLEAR (Bildschirm löschen) 

$93 

= 

#147 

INSERT (1 Zeichen einfügen) 

$94 

= 

#148 

Zeichenfarbe braun 

$95 

= 

#149 

Zeichenfarbe hellrot 

$96 

= 

#150 

Zeichenfarbe grau 1 

$97 

= 

#151 

Zeichenfarbe grau 2 

$98 

= 

#152 

Zeichenfarbe hellgrün 

$99 

= 

#153 

Zeichenfarbe hellblau 

$9A 

= 

#154 

Zeichenfarbe grau 3 

$9B 

= 

#155 

Zeichenfarbe purpur 

$9C 

= 

#156 

CURSOR LEFT (Cursor links) 

$9D 

= 

#157 

Zeichenfarbe gelb 

$9E 

= 

#158 

Zeichenfarbe türkis 

$9F 

= 

#159 


Bild 9. Steuerzeichen und ihre ASCII-Codes 
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Befehl: T 

Syntax: T Anfangsadresse Endadresse 

Zieladresse 

Wirkung: verschiebt Bereich von Anfangs¬ 

adresse bis Endadresse zur Ziel¬ 
adresse. 

englisches Wort: Transfer (übertragen, verschieben) 
Bild 10. Kurzübersicht zum Befehl T 

Beim LISTen hingegen steht das Steuerzeichen in Anfüh¬ 
rungszeichen und wird daher invers dargestellt und nicht 
ausgeführt. 

Ein wichtiger Hinweis noch zum »quote mode«: Er ist im¬ 
mer dann aktiv, wenn eine ungerade Zahl von Anführungs¬ 
zeichen ausgegeben wurde. Dabei ist es unbedeutend, ob 
diese in der Zwischenzeit mittels DEL gelöscht wurden. 

Der dritte Eingabemodus ist der »insert mode«, der Einfü- 
gemodus. In diesen gelangen Sie durch Drücken von 
<SHIFT INST/DEL>. Der Einfügemodus wird dann been¬ 
det, wenn pro gedrücktes <SHIFT INST/DEL> ein Zei¬ 
chen eingegeben - und damit eingefügt - wurde. 

Innerhalb des Einfügemodus gelten die gleichen Regeln 
wie im Anführungsmodus. Wenn Sie im Normalmodus auf 
eine Steuertaste (Cursor-Tasten, CLR/HOME,..) drücken, 
wird die Steuerfunktion ausgeführt, im »quote mode« und 
im »insert mode« hingegen nicht - es erscheint zum Bei¬ 
spiel ein inverses Herz. 

Im »insert mode« ist zusätzlich DEL außer Kraft gesetzt. 

Der vierte und letzte Eingabemodus ist der »auto insert 
mode«, der automatische Einfügemodus, in den Sie über 
<ESC> und <A> gelangen und aus dem Sie mittels 
< ESC > und < C > wieder herauskommen. In diesem Mo¬ 
dus sind die Steuertasten nach wie, vor wirkungsvoll; es 
handelt sich also um einen Normalmödus, bei dem die Zei¬ 
chen eingefügt werden. Dieser Eingabemodus ist für unse¬ 
re Zwecke nicht so ergiebig und soll nicht weiter behandelt 
werden. 

Von jetzt an werden wir neue Befehle kennenlernen, 
denn je mehr Werkzeug in Form von Monitorbefehlen zur 
Verfügung stehen, desto besser können wir als direkte Fol¬ 
geerscheinung mit unserem C128 arbeiten! 

Der Kopier-Befehl: T 


Der nächste Befehl dient zum Verschieben von Speicher¬ 
bereichen. Dies ist eine der Grundfunktionen eines Moni¬ 
tors. 

Man kann einen Monitor auch als Textverarbeitung für 
den Speicher, also als Speicherverarbeitung ansehen, die 
eine komfortable Behandlung des Speichers ermöglicht 
(bequemer als über POKE, PEEK und BANK). So wie eine 
Textverarbeitung eine Kopierfunktion für Textbereiche ha¬ 
ben sollte, kommt man auch mal in die Lage, einen Spei¬ 
cherbereich kopieren zu müssen. 

Der entsprechende Befehl des TEDMON heißt »T«. T 
kommt vom englischen Wort »transfer«, welches die deut¬ 
sche Bedeutung »übertragen« hat. Die Syntax lautet: 

T Anfangsadresse Endadresse Zieladresse 

Anfangsadresse und Endadresse begrenzen den Origi¬ 
nalbereich, der kopiert werden soll. Der Zielbereich wird 
nur durch die Zieladresse bestimmt, die die Anfangsadres¬ 
se des Zielbereichs ist. Die Endadresse des Zielbereichs 
kann der Monitor selbst ausrechnen, denn die Länge des 
zu verschiebenden Bereichs ist ihm durch Anfangsadresse 
und Endadresse indirekt mitgeteilt worden. 

Alle nötigen Informationen zum T-Befehl finden Sie in 
Bild 10 (Kurzübersicht). 

930 ? 


Zum T-Befehl ist aber noch eines zu sagen: Maschinen¬ 
programme sind nach dem Verschieben nicht unbedingt 
lauffähig! Die Programme würden nur dann laufen, wenn 
keine absoluten Adressierungen Vorkommen; dies ist je¬ 
doch selbst bei Kleinstroutinen nur mit Mühe zu erreichen. 

Leider kennt der TEDMON des C128 nicht die entspre¬ 
chenden Verschiebebefehle des SMON zum C64, der das 
Anpassen eines Maschinenprogramms an einen neuen 
Speicherbereich in professioneller Manier löst. 

Listing 3 ist ein Basic-Programm - darum ist es so lang¬ 
sam - zur Simulation des T-Befehls mittels Basic. 

Sie können im Programm die Formel zur Berechnung der 
Endadresse des Zielbereichs gut erkennen. 

Die Länge von Listing 3 zeigt, daß die Verschiebefunktion 
nicht ganz so einfach zu programmieren ist. Vom Verhältnis 
Quellbereich/Zielbereich bezüglich der Lage im Speicher 
hängt nämlich die Form der Schleifenkonstruktion ab. 

Im übrigen kann es passieren, daß bei T-Befehlen wie »T 
00000 01000 FA000« der Monitor (beziehungsweise das 
Beispielprogramm) bestimmte Adressen ausgibt. Diese 
Adressen sind Adressen, die beim Verschieben Schwierig¬ 
keiten gemacht haben, weil der zu den Adressen gehören¬ 
de Zielbereich nicht als RAM verwendbar ist. 

Die Adressen werden ausgegeben, wenn man versucht, 
ROM-Bereiche als Zielbereiche zu verwenden (im Beispiel 
»T 00000 01000 FA000 wäre der Bereich ab $A000 in Bank 


100 

_ _....... 

< I IA> 

110 

REM * * 

<IQB> 

120 

REM * SIMULATION DES MONITOREN- * 

< I28> 

130 

REM * * 

< IA9> 

140 

REM * FEHLS *T’ MITTELS BASIC * 

<JIE> 

150 

REM * * 

<JQF> 

160 

REM ***************************** 

< J2C> 

170 

REM * * 

< JAD> 

1B0 

REM * BY FLORIAN MUELLER * 

<6I2> 

19*r 

/»7M * * 

<GQ3> 

200 

iwM *HH*************************** 

< J2C> 

210 


<1S7> 

220 

PRINT CHR*(13> OHR*(13)"VERSCHIEBEN MITTELS B 



ASIC” CHR*<7) CHR*(13) 

<FDN> 

230 

INPUT "SPEICHERBANK DES QUELLBEREICHS";BO 

<CCK> 

240 

INPUT "ANFANGSADRESSE D.QUELLBEREICHS"; AQ*: A 



Q=DEC(AQ*) 

<C2F> 

250 

INPUT "ENDADRESSEC3SPACETDES QUELLBERE!CHS“;E 



Q*: EQ=DEC<EQ*> 

<CMQ> 

260 

INPUT "SPEICHERBANK DES(2SPACEJZIELBEREICHS-; 



BZ 

<MPB> 

270 

INPUT "ANFANGSADRESSE D. ZIELBEREICHS“;AZ*: A 



Z-DEC(AZ*> 

<C5U> 

2B0 

EZ=AZ+(EQ-AQ> : REM ENDE DES ZIELBEREICHS BERE 



CHNEN 

<OQT> 

290 

PRINT "=> ENDADRESSE DES ZIELBEREICHS = *";HE 



X*<EZ> 

<5NL> 

300 

: 

<0C1> 

310 

IF AQ>AZ THEN 440: REM GEGEBENENFALLS ZWEITE 



SCHLEIFE ANSPRINGEN 

<6GS> 

320 

s 

< 1C5> 

330 

Q=EQ: Z-EZ: REM 0 - QUELLADRESSE; Z = ZIELADR 



ESSE 

< I D8> 

340 

: 

<2C9> 

350 

DD UNTIL D<AD 

<317> 

360 

BANK BQ: QUELL-PEEK(Q>: REM QUELLBEREICH AU 



SLESEN 

<909 > 

370 

: BANK BZ: POKE Z, DUELL: REM ZIELBEREICH BES 



CHREIBEN 

<DJ0> 

300 

: IF PEEK(Z)<>QUELL THEN PRINT RIGHT*(HEX*(BQ 



),I);HEX*(0), 

<7J I > 

390 

: Q-O-ls Z-Z-l: REM OUELL- UND ZIELADRESSE ER 



NIEDRIGEN 

<6EU> 

400 

LOOP 

< J69> 

410 

8 

<7SV> 

420 

RUN 

<H66> 

430 

8 

<6SR> 

440 

Q-AQ: Z=EQ: REM Q=QU£LL-,Z“ZIELADRESSE 

<PT3> 

450 

8 

<5SN> 

460 

Dü UNTIL 0>EQ 

<P17> 

470 

s BANK BO: QUELL-PEEK(0): REM QUELLBEREICH AU 



SLESEN 

<P49> 

480 

: BANK BZ: POKE Z, QUELL: REM ZIELBEREICH BES 



CHREIBEN 

<9JG> 

490 

: IF PEEK(Z)<>QUELL THEN PRINT RIGHT*(HEX*(BQ 



>,1);HEX*(Q) t 

<VSI> 

500 

: Q=Q+1: Z=Z+1: REM QUELL- UND ZIELADRESSE ER 



HOEHEN 

<DI I > 

510 

LDDP 

<V7P> 

520 

3 

<7CT> 

530 

RUN 

<N6U> 

Listing 3. T-Befehl in Basic simulieren 
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$F (dezimal 15) als Zielbereich gewählt worden, obwohl es 
sich um einen ROM-Bereich handelt). Dieser Fehler wird 
dadurch gefunden, daß der Monitor beziehungsweise das 
Beispielprogramm nach jedem Byte prüft, ob der Zielbe¬ 
reich an der Stelle des gerade verschobenen Bytes auch 
mit dem Originalbereich übereinstimmt. Bei RAM-Berei- 
chen, die man ja auch beschreiben und somit als Zielbe¬ 
reich einsetzen kann, tritt natürlich eine Übereinstimmung 
auf; bei ROM-Bereichen, die als Festwertspeicher nur les-, 
nicht aber veränderbar sind, führt ein solches Überprüfen 
(Verify) zu einem Fehler. Gleiches gilt, wenn man beim M- 
Befehl - oder mittels des Unterbefehls > - einen ROM-Be- 
reich zu ändern versucht. 

Bei Eingabefehlern erweist es sich als sehr nützlich, daß 
der Monitor die Adressen meldet; man muß aber bedenken, 
daß beim Transport in ROM-Bereiche aufgrund der 
Prozessor- und Speicherverwaltungsstruktur nicht das 
ROM, sondern das an gleicher Adresse liegende RAM be¬ 
schrieben wird. So könnten Programme oder Programmtei¬ 
le verlorengehen, ohne daß man es beabsichtigt hat. Wenn 
man aber anhand der ausgegebenen Adressen merkt, daß 
ein Fehler zustandekam, kann man noch schnell mit 
<RUN/STOP> abbrechen und somit den Schaden be¬ 
grenzen. 

Noch etwas zum Verifizieren: 


Leider ist das Verifizieren - ob beim Monitor oder beim Si¬ 
mulationsprogramm - nicht lOOprozentig sicher: Wenn Sie 
den ROM-Bereich $4000 bis $A000 (in Bank 15) sich selbst 
kopieren lassen (erforderliches Monitor-Kommando: T 
F4000 FA000 F4000), könnte der Monitor den Fehler nie 
ausfindig machen; er würde immer den Bereich $4000 bis 
$AOOO mit dem Bereich selbst vergleichen und logischer¬ 
weise keinen Fehler entdecken. Der Computer schreibt 
aber den ROM-Bereich dann nicht ins ROM selbst- (das 
geht ja nicht), sondern ins darunterliegende RAM. Das 
heißt, effektiv würde der Bereich $F4000 bis $FA0Q0 in den 
Bereich $04000 bis $0A000 kopiert. Prüfen Sie das doch 
einmal nach, indem Sie mittels M (den Vergleichsbefehl 
des Monitors haben wir noch nicht durchgenommen) den 
Bereich $4000 bis $A000 in Bank 0 mit dem entsprechen¬ 
den Bereich in Bank 15 ($F) vergleichen, nachdem Sie über 
»T F4000 FA000 F4000« das Verschieben durchgeführt 
haben. 

Beim Kopieren mit »T F4000 FA000 F4001« würde der 
Monitor hingegen Fehler entdecken, da der Zielbereich 
($F4001 bis $FA001) nun ein anderer Speicherbereich wäre 
als der Originalbereich ($F4000 bis $FA000). 

Noch ein Hinweis, um Mißverständnissen vorzubeugen: 
Selbstverständlich kann man ROM-Bereiche ins RAM an 
anderer Stelle kopieren, nur nicht umgekehrt. So kann man 
den Bereich $F4000 bis $FA000 zwar nicht nach $F4001 bis 
$FA001 kopieren, wohl aber nach $04001 bis $0A001 ver¬ 
schieben: T F4001 FA001 04001. 

Der T-Befehl allein ist zunächst einmal nicht so recht ver¬ 
wertbar, vor allem erscheint einem der Nutzen des Kom¬ 
mandos dann zweifelhaft, wenn man nicht Maschinenpro¬ 
gramme bearbeiten will. 

Wir möchten Ihnen zur Entschädigung ein Verfahren vor¬ 
stellen, um die Lage des Basic-Programms im Speicher zu 
ändern, also kurz gesagt: Das Verschieben des Basic- 
Programms in einen anderen Bereich. 

Bitte lösen Sie dazu einen Reset aus und laden dann ein 
Basic-Programm Ihrer Wahl in den Speicher. Es sollte der 
Einfachheit halber nicht allzulang sein. 

Wir verwenden als Beispielprogramm das Programm 
»CHANGE UNIT« von der Test/Demo-Diskette zur 


1570/1571 und laden es über DLOAD"CHANGE UNIT" 
< RETURN >. Das Programm soll nun nach $A000 (in 
Bank 0) verschoben werden. 

Am besten arbeiten wir nun gemeinsam an diesem Bei¬ 
spielprogramm, das wohl jeder C 128-Besitzer mit einer der 
Commodore-Floppy-Stationen zur Verfügung haben sollte, 
das Verschieben dieses Programms durch. Daran können 
Sie natürlich auch lernen, wie man beliebige Programme 
verschiebt. 

Die einzelnen Schritte unseres Vorgehens numerieren 
wir mit römischen Zahlen. 

I. Bestimmung von Anfangs- und Endadresse 

Geben Sie dazu folgenden Audruck ein (? ist die Abkür¬ 
zung für PRINT): 

?HEX$(PEEK(45)+256#PEEK(46)),HEX$(PEEK(4624)+256*P- 
EEK(4625)) 

Sie erhalten die hexadezimale Darstellung von Anfangs- 
Linker Wert) und Endadresse (rechter Wert). Hexadezimale 
Darstellung deshalb, weil wir mit ihr an einigen Stellen bes¬ 
ser zurechtkommen. 

Bei unserem Beispielprogramm CHANGE UNIT von der 
Test/Demo-Diskette erhalten wir den folgenden Ausdruck: 
1C01 20F5 

Es wird nicht erwähnt, daß es sich um Adressen in Bank 
0 handelt, da dies von Anfang an feststeht: Bank 0 ist die 
Speicherbank, in der das Basic-Programm abgelegt ist. 

Die Anfangsadresse ist in der Regel $1C01 (wie bei unse¬ 
rem Beispiel) oder $4001 bei Benutzung der Befehle zur 
hochauflösenden Grafik, die Endadresse - im Beispiel 
$20F5 - variiert natürlich (Programme sind ja auch unter¬ 
schiedlich lang). 

Diese Werte müssen wir uns natürlich merken, denn 
wenn wir das Basic-Programm verschieben wollen, müs¬ 
sen wir dem Monitor Anfangs- und Endadresse des Basic- 
Progrcr'.ms im Speicher mitteilen (unser Monitor ist 
schließlich kein Hellseher, wir haben ihn mit einer ausrei¬ 
chenden Anzahl von Informationen zu versorgen). 

II. Bestimmung der Endadresse des Zielbereichs 

Vielleicht stutzen Sie zunächst ein wenig, warum denn 

die Endadresse des Zielbereichs berechnet werden soll, 
wenn dies der Monitor ohnehin tut. 

Die Bestimmung ist auch nur erforderlich, damit wir die 
Endadresse in bestimmten Adressen, die der Basic- 
Interpreter benötigt, ablegen können. Die Endadresse des 
Zielbereichs ergibt sich über die Formel 
Endadresse Zielbereich = Endadresse - Anfangsadresse 
+ Zieladresse. 

Wir errechnen den hexadezimalen Wert über den Aus¬ 
druck 

?HEX$(DEC("hier Hex-Endadresse aus Schritt I 
einsetzen ") - DEC(" hier Hex-Anfangsadresse aus Schritt I 
einsetzen") + DEC("hier Hex-Endadresse des Ziel¬ 
bereichs einsetzen")) 

In unserem konkreten Fall »CHANGE UNIT nach $A000« 
heißt dies folgendermaßen: 

?HEX$ (DEC ( "20F5 ") -DEC ( "1C01") +DEC ("A000 ")) 
und bringt folgendes Ergebnis auf den Bildschirm: 

A4F4 

Nun haben wir nach den Schritten I und II alle wichtigen 
Parameter errechnet: 

Anfangsadresse (Originalbereich) = $1C01 
Endadresse (Originalbereich) = $20F5 

Anfangsadresse (Zielbereich) = $A000 

Endadresse (Zielbereich) = $A4F4 

III. Zeiger des Interpreters setzen 

Nun müssen wir die Zeiger des Interpreters auf Anfangs¬ 
und Endadresse des Basic-Programms im Speicher an die 
Werte nach dem Verschieben (das Verschieben ist dann 
der nächste Schritt) anpassen. Außerdem ist ein Null-Byte 
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als Markierung vor den neuen Basic-Start (das Programm 
soll nun bei $A000 liegen) anzubringen. 

Vorher noch etwas zur Wiederholung des Hexadezimal¬ 
systems: 

Das Low-Byte einer vierstelligen Hexadezimalzahl be¬ 
steht aus den beiden am weitesten rechts stehenden Zif¬ 
fern, die beiden am weitesten links stehenden Ziffern kenn¬ 
zeichnen das High-Byte. Beispiel: Zahl = $ABCD; LB (Ab¬ 
kürzung für Low-Byte) = $CD, HB (Abkürzung für High- 
Byte) = SAB. 

Da in Adressen (eine Speicherzelle kann nur ein Byte 
aufnehmen) das Low-High-Format verwendet wird (eine 
Adresse - die der Adreßangabe nach niedrigere - enthält 
das Low-Byte, die andere - die der Adreßangabe nach hö¬ 
here - enthält das High-Byte), sind in unserer nächsten An¬ 
weisungszeile folgende Rechnungen erforderlich: 

POKE 45, DEC("LB der neuen Anfangsadresse"): PO- 
KE 46, DEC("HB der neuen Anfangsadresse"): POKE 
DEC("neue Anfangsadresse ")-1, 0: POKE 4624, 

DEC("LB der neuen Endadresse nach Schritt II"): POKE 
4625, DEC("HB der neuen Endadresse gemäß II" 

Bei unserem Beispiel lautet die Eingabe folgenderma¬ 
ßen: 

P0KE45,DEC ( "00 "): P0KE46, DEC( "A0 "): POKE DEC( "A000 ") - 
1,0: P0KE4624, DEC ("F4 "): P0KE4625, DEC ( "A4 ") 

Nun weiß der Basic-Interpreter, in welchem Bereich das 
Basic-Programm liegt. 

IV. Verschieben des Programms 

Während wir bislang im Basic hantiert haben, kommt nun 
der Monitor zu seinem großen Auftritt. Wir verschieben das 
Basic-Programm an die Zieladresse. Dazu sind die in I. er¬ 
mittelten Parameter (Anfangs- und Endadresse des Origi¬ 
nalbereichs) sehr nützlich. Vorher aber schalten wir den 
Monitor mittels <F8> oder Basic-Befehl MONITOR ein. 

Die Anweisung an den Monitor lautet: 

T Anfangsadresse Endadresse Zieladresse 

Im Beispiel »CHANGE UNIT nach $A000« heißt das also: 
T 1C01 20F5 A000 

Die Bank-Angabe lassen wir einfach weg, wir arbeiten ja 
in diesem Fall ohnehin nur in Bank 0 - und diese Bank ist 
voreingestellt. 

Nach dem Verschieben verlassen wir den Monitor wieder 
mit X. 

V. Basic-Programm an neuen Bereich anpassen 

Wenn Sie nun versuchen, das Programm zu LISTen, wer¬ 
den Sie merken, daß es an seinen neuen Speicherbereich 
noch nicht gänzlich angepaßt ist. Dies ist jedoch im Gegen¬ 
satz zum Anpassen von Maschinenprogrammen nicht wei¬ 
ter schwierig. Wir greifen dazu auf eine ROM-Routine zu¬ 
rück, die alle notwendigen Änderungen auf Wunsch durch¬ 
führt: 

BANK15:SYS20303 

Diese Routine wird übrigens nach dem Laden eines Pro¬ 
gramms von der Kassette oder der Diskette immer vollauto¬ 
matisch ausgeführt. 

Jetzt haben wir es geschafft! In Zukunft werden Sie sich 
bei diesem Anwendungsfall viel leichter tun. Sie brauchen 
nur hier nachzuschlagen. Im übrigen geht es bei einem 
Basic-Programm, das Sie auf Diskette gespeichert haben, 
viel einfacher. 

Der neue Beginn des aktuellen Basic-Programms im 
Speicher wird folgendermaßen festgesetzt: 

POKE 45, DEC(" LB neuer Start"): POKE 46, DEC("HB 
neuer Start"): POKE DEC("Hex-Adresse für neuen 
Start")-1, 0: NEW 

Jetzt laden Sie das Programm mit DLOAD "NAME". 

Natürlich kann das Programm auch auf einem anderen 
Speichermedium als der Diskette abgelegt sein. 

Das vorgestellte erste Verfahren (unter Verwendung des 
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T-Befehls) ist hauptsächlich interessant, wenn das Pro¬ 
gramm nicht auf Diskette vorhanden ist. Dies kann zum Bei¬ 
spiel bei Zwischenversionen der Fall sein. 

Vor allem aber sollten Sie sehen, daß man den T-Befehl 
nicht nur für Maschinenprogramme, sondern auch für Ba¬ 
sic nutzen kann; man muß nur wissen, wie das geht - dieser 
Kurs versucht, Ihnen alle nötigen Informationen zu vermit¬ 
teln. 

Der Vergleichs-Befehl: C 


Im vorangegangenen Abschnitt wurde schon ein 
Vergleichs-Befehl erwähnt. In diesem Abschnitt sollen Sie 
alle nötigen Informationen zum Vergleichs-Befehl erhalten. 

Der Vergleichs-Befehl lautet C (vom englischen Wort 
»compare«, deutsche Bedeutung »vergleichen«) und 
stimmt in der Syntax mit dem T-Befehl überein: 

C Anfangsadresse Endadresse Zieladresse 

Anfangsadresse und Endadresse markieren den ersten 
Bereich, Zieladresse ist die Anfangsadresse des zweiten 
Bereichs. Dann werden die verschiedenen Bereiche mit¬ 
einander verglichen; unterschiedliche Adressen werden 
hexadezimal dargestellt. 

Natürlich ergibt sich auch hier mit Hilfe einer Gleichung 
die Endadresse des Zieibereichs: 

Endadresse des Zielbereichs = Endadresse - Anfangs¬ 
adresse + Zieladresse. 

Diese Gleichung werden Sie in Listing 4- unserem Simu¬ 
lationsprogramm zum Monitor-Kommando - in Zeile 280 
wiederfinden. 

In Bild 11 ist die Kurzübersicht zum C-Befehl-auch diese 
ist Ihnen sicher zur Gewohnheit geworden - dargestellt. 

Zur Berechnung der Endadresse des zweiten Bereichs 
ist n™ 'i etwas zu sagen: es ist nicht so, daß sie unbedingt 


100 

REM ***************************** 

< 11 A> 

110 

REM * * 

<IQB> 

120 

REM * SIMULATION DES MONITORBE- * 

< I28> 

130 

REM * * 

< I A9> 

140 

REM * FEHLS *C‘ MITTELS BASIC * 

<JIE> 

150 

REM * * 

<JQF> 

160 

REM ***************************** 

< J2C> 

170 

REM * * 

< JAD> 

180 

REM * BY FLORIAN MUELLER * 

<GI2> 

190 

REM * * 

<GQ3> 

20O 

REM ***************************** 

<J2C> 

210 

s 

< 1S7> 

220 

PRINT CHR*(13) CHR*(13)"VERGLEICHEN MITTELS B 



ASIC" CHR*<7> CHR*<13> 

<CTO> 

230 

INPUT "SPEICHERBANK DES 1. BEREICHS”;B1 

< TNQ > 

240 

INPUT "ANFANGSADRESSE D.1. BEREICHS“; A1 *: Al = 



DEC(Alt) 

<3GM> 

230 

INPUT "ENDADRESSE(3SPACE5DES 1. BEREICHS";El * 



: E1=DEC(E1*) 

<487> 

260 

INPUT "SPEICHERBANK DES 2. BEREICHS“iB2 

<LHR> 

270 

INPUT "ANFANGSADRESSE D.2. BEREICHS"; A2*: A2= 



DEC(A2*> 

<BIB> 

200 

E2=A2+(E1-A1): REM ENDE DES ZIELBEREICHS BERE 



CHNEN 

<3KU> 

296 

PRINT "-> ENDADRESSE DES 2. BEREICHS - «";HEX 



*<E2> 

<001 > 

295 

PRINT : PRINT "NICHT UEBEREINSTIMMENDE ADRESS 



EN:" CHR*(13) 

<BBL> 

30O 

: 

<0C1> 

310 

Tl-AIl T2-A2: REM ZU TESTENDE ADRESSEN BESTIM 



MEN (MIT ANFANGSWERTEN BEGINNEN) 

<N4C> 

320 

: 

< 1C5> 

330 

DO UNTIL TI>E1 

<SH0> 

340 

I BANK Bl: WliPEEK(Tl): REM WERT AUS BEREICH 



l AUSLESEN 

<LT5> 

350 

: BANK B2: W2-PEEKIT2): REM WERT AUS BEREICH 



2 AUSLESEN 

<TTJ> 

360 

: IF W10W2 THEN PRINT RIGHT*(HEX*(Bl),1);HEX 
*(TI),: REM KEINE UEBEREINSTIMMUNB, DANN ADRE 



SSE AU5GEBEN 

<DEC> 

370 

: Tl-Tl+1: 72 - 72 * 1 : REM ADRESSEN ERHOEHEN 

<OSV> 

380 

LOOP 

<B59> 

390 

: 

<4SJ> 

400 

RUN 

<L6M> 

Listing 4. Auch der C-Befehl kann in Basic 


simuliert werden 



SONDERHEFT 44 


129 








KURS 


vom Monitor berechnet wird. Er zählt einfach - wie das Bei¬ 
spielprogramm - regelmäßig die erste und die zweite 
Adresse um eins herauf. Die Vergleiche führt er mit der 
Adresse durch, deren Endwert ihm durch die Parameter¬ 
übergabe bekannt ist (also der ersten Adresse). Beim C-Be- 
fehl wird also nur immer die Adresse des ersten Bereichs 
mit dem Endwert des ersten Bereichs verglichen. Eine 
zusätzliche Prüfung der Adresse des zweiten Bereichs 
erübrigt sich. 


Befehl: C 

Syntax: C Anfang 1 Endel Anfang2 

Wirkung: vergleicht den Bereich von Anfangl 

bis Endel mit dem Bereich ab 

Anfang2. 

englisches Wort: Compare (vergleichen) 


Bild 11. Kurzübersicht zum Befehl C 

Wenn Sie einen Bereich mit sich selbst vergleichen, wird 
natürlich keine unterschiedliche Adresse gemeldet (Bei¬ 
spiel: C F4000 F5000 F4000). 

Der C-Befehl ist vor allem für Maschinenprogrammierer 
interessant, die verschiedene Versionen ihrer Programme 
durch den C-Befehl miteinander vergleichen lassen und 
somit Unterschiede zwischen den einzelnen Versionen 
leicht entdecken. 

Der Füll-Befehl: F 


Die Befehlsabkürzung F kommt vom englischen Wort »fill« 
(deutsche Bedeutung »füllen«). 

Die Syntax: F Anfangsadresse Endadresse Füll-Byte 

Im Gegensatz zur Anfangs- und Endadresse darf das 
Füll-Byte (das Byte, mit dem der durch Anfangsadresse 
und Endadresse markierte Bereich aufgefüilt werden soll) 
nur einen Byte-Wert ($00 bis $FF = #0 bis #255 = 
%00000000 bis %11111111) haben. 

Der Befehl bewirkt, daß alle Speicherzellen von Anfangs¬ 
adresse bis einschließlich Endadresse den Wert des Füll- 
Bytes annehmen. Am besten läßt sich dies an Listing 5, 
dem Simulationsprogramm zum F-Befehl, erkennen. 

Dieses Programm erkennt übrigens einen Fehler, wenn 
man einen ROM-Bereich füllen will, und steigt mit der Mel¬ 
dung »??? fehlerhafte Adresse« aus. Der Monitor-Befehl F 
tut dies nicht. Um das Beispielprogramm also kompatibel 
zu gestalten, ist die Zeile 320 einfach zu löschen. 

An der Kürze von Listing 5 kann man sehen, wie einfach 
und elementar zugleich der F-Befehl ist. 

Bild 12 ist die Kurzübersicht zum F-Befehl. 

Auch die Anwendung des Fill-Befehls ergibt sich aus der 
jeweiligen Situation heraus. Der Fill-Befehl kann zum Bei¬ 
spielverwendetwerden, umeineASCII-Tabellezu löschen. 
Dazu überschreibt man sie mit Leerzeichen (Füll-Byte $20 
= #32). 

So kann man den 40-Zeichen-Bildschirmspeicher mit fol¬ 
gender Eingabe löschen (vor der Eingabe bitte in die 
40-Zeichen-Darstellung gehen): 

F+1024+2023+32 

Mit folgendem Befehl wird er durch Sterne überschrie¬ 
ben: 

F+1024+2023+42 

Dieses Beispiel dient eigentlich mehr der Demonstration 
als der wirklichen Anwendung. Wenn Sie sich jetzt im 
40-Zeichen-Modus befinden und einen Befehl an den Mo¬ 
nitor senden wollen, sollten Sie entweder die Eingabezeile 
hinter dem Monitor-Befehl über <ESC> und <Q> lö¬ 
schen oder einen Doppelpunkt»:« hinter den Befehl setzen. 
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Schon beim Ändern des Memory-Dumps wurde erwähnt, 
daß dieser Doppelpunkt die Endmarkierung eines Monitor- 
Befehls ist - hier haben Sie eine denkbare Anwendung. 

Eine häufigere Anwendung ist aber das Löschen des 
Basic-Programm-RAMs in BankO. Am besten überschreibt 
man es dazu mit Null-Bytes: 

F 1C00 FDFF 00 

Mit »H 1C00 FDFF 00« erhalten Sie dann alle Adressen 
von 1C00 bis FDFF, da ja der gesamte Suchbereich nur aus 
Null-Bytes (dem ehemaligen Füll- und jetzigen Such-Byte) 
besteht. So wie man mit dem C-Befehl die Arbeit des T-Be- 
fehls prüfen kann, ist auch eine - sich eigentlich erübrigen¬ 
de - Prüfung des F-Befehls mittels H möglich. Diese Prüf¬ 
verfahren unterscheiden sich jedoch in einem grundsätz¬ 
lichen Punkt: Während der T-Befehl nur korrekt gearbeitet 
hat, wenn der C-Befehl mit gleichen Parametern keine 
Adresse auf den Bildschirm bringt, ist die Arbeit des F- 
Befehls nur in Ordnung, wenn ein H-Befehl mit gleichen Pa¬ 
rametern alle Adressen im Suchbereich ausgibt. 

Im übrigen dient das Prüfen der Monitor-Befehle nicht 
dem Test der ohnehin korrekten Monitor-Routinen, son¬ 
dern vielmehr der Suche nach Änderungen, die man nach 
bestimmten Befehlen durchgeführt hat. 

Ein wichtiger Hinweis zum Beispiel »F 1C00 FDFF 00«: 
Im Gegensatz zum NEW-Befehl oder Reset ist nach dieser 
Eingabe ein Retten des Basic-Programms durch ein OLD- 
Programm nicht möglich, da der Speicher wirklich gelöscht 
wird. Beim NEW-Befehl oder Reset hingegen bleibt der 
Großteil des Speichers erhalten, da nur 3 Byte gelöscht 
werden. 

Noch eine Anwendung, die sicher auch auftritt, wenn Sie 
den C64-Modus ab und zu nutzen: 

Wenn ein G064 zum Absturz führt, da der C64-Modus 
gegen Reset geschützt ist, kann man 

a) die ^ idikalkur anwenden, indem man den gesamten 
Speicher in Bank 0 wie beschrieben löscht und dann 
G064 eingibt oder 

b) mit »F 8004 8008« die Markierung löschen, die für den 
Reset-Schutz verantwortlich ist, und dann »G064« ein¬ 
geben. 

Das Verfahren b) ist natürlich schneller (es müssen nur 
wenige Bytes überschrieben werden). Das Verfahren a) ist 
oft aber empfehlenswert, wenn sichergestellt werden soll, 
daß sich nicht noch ein altes Programm im Speicher befin¬ 
det. 

Der Disketten-Operationsbefehl: @ 


Der Befehlsbuchstabe für Diskettenoperationen ist der 
Klammeraffe. Der Klammeraffe ist das Zeichen, das Sie auf 
der amerikanischen Tastatur rechts vom P finden. Es han¬ 
delt sich um ein A in einer Art Kreis, der es umklammert. 

Die Umsteiger vom C 64 auf den C128 kennen den Klam¬ 
meraffen als Disketten-Operationsbefehl schon vom DOS 
5.1. Seine Syntax ist in einigen Punkten auch beim TED- 
MON vorhanden. 

Die Syntax des @-Befehls ist etwas schwierig zu be¬ 
schreiben, da auf diesen Befehl mehrere Funktionen fallen. 


Befehl: F 

Syntax: F Anfangsadresse Endadresse 

Füll-Byte 

Wirkung: füllt Speicherbereich von Anfangs¬ 

adresse bis Endadresse mit dem 
Füll-Byte auf. 

englisches Wort: Fill (füllen) _ 

Bild 12. Kurzübersicht zum Befehl F 
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Befehl: 

Syntax: 


Wirkung: 


englisches Wort: - 


<@> 

< @ > (Gerätenummer) 
oder <@>(Gerätenummer), Befehl 
oder < @ > (Gerätenummer), $(Optionen) 
Anzeigen des Disk-Status, wenn kein 
Komma auf Klammeraffe und evtl. 
Gerätenummer folgt. 

Senden eines Befehls an die Floppy, 
wenn Befehl folgt. 

Anzeige des Directory unter Berück¬ 
sichtigung der Optionen, falls Disk- 
Befehl mit "$" beginnt. 


Bild 13. Kurzübersicht zum Befehl @ 

Der Befehl kann nur aus dem »Klammeraffen« bestehen, 
dann wird der Status von Laufwerk 8 angezeigt. Um Gerät 
9 anzuwählen, gibt es die Möglichkeit, direkt nach dem 
Klammeraffen die Gerätenummer anzugeben: »@9« ist der 
gleiche Befehl, spricht aber Laufwerk 9 an. 

Wenn Sie nach dem Befehl und der eventuellen Angabe 
der Gerätenummer, die selbstverständlich entfallen kann, 
ein Komma ».«setzen und darauf ein Disk-Befehl folgt, wird 
dieser ausgeführt. 

Beispiel: »@,l« initialisiert Laufwerk 8 (da zwischen dem 
Klammeraffen und dem Komma keine Zahl steht), »@9,l« ist 
das gleiche für Laufwerk 9. 

Übrigens: Weder der Monitor-Befehl noch einzelne Para¬ 
meter nach dem Klammeraffen werden in Anführungszei¬ 
chen gesetzt! 

Beginnt der gegebene Befehl nach dem Klammeraffen 
mit dem Dollarzeichen »$«, so handelt es sich natürlich 
nicht um einen Disk-Befehl. TEDMON interpretiert dies als 
Directory-Befehl: »@8,$« listet das Directory von Laufwerk 
8. Dem »$« können auch weitere Zeichen folgen, so daß ein 
Selektieren bei der Ausgabe des Directories kein Problem 
ist: 

»@,$:* =PRG« gibt nur die Programm(PRG)-Files aus. 

Der Klammeraffen-Befehl ist sehr nützlich für den Disket¬ 
tenanwender. Eine Kurzübersicht finden Sie in Bild 13. 

Oft interessiert man sich nur für einen Teil des gesamten 
Directory. Das Floppyiaufwerk ist in der Lage, einzelne Teile 
des Directory an den Computer zu senden, wenn es ihr nur 
mitgeteilt wird. Das »$« hinter dem Klammeraffen sendet 
der Monitor als Filename zum Floppyiaufwerk. Dann arbei¬ 
tet er wie der Basic-Befehl CATALOG, beziehungsweise 
DIRECTORY. 

Bei diesen Befehlen lassen sich auch Selektierungen 
vornehmen, wenn dem Befehl ein entsprechender Filena¬ 
me, der natürlich mit »$« beginnen muß, folgt: 

DIRECTORY "$:* =PRG" in Basic entspricht dem 
Monitor-Kommando: @,$:*=PRG. 

Nun zum Aufbau des Directory-Ausschnitt-Filenamens. 

Auf das »$« sollte ein Doppelpunkt »:« folgen. Danach 
wiederum kann ein Filename stehen. In diesem Filenamen 
dürfen dann Joker Vorkommen (siehe Floppy-Handbuch). 

»$:FILENAME« ist also die Anweisung, um den 
Directory-Eintrag des Programms FILENAME mitsamt 
Kopfzeile und »BLOCKS FREE«-Angabe auf den Bild¬ 
schirm zu holen. »$:FILE*« listet alle Files, deren Namen 
mit »FILE« beginnen. »$:F??E« listet alle Files, deren erster 
Buchstabe im Filenamen F und deren vierter Buchstabe 
ein E ist. Damit erst gar nicht Mißverständnisse aufkom- 
men: 

$ ist kein Befehl an das Diskettenlaufwerk, den man über 
OPEN und PRINT # sendet und auch kein Monitor- oder 
Basic-Befehl. »$:FILENAME« allein ergibt nur einen Syntax 
Error oder das Monitor-Fragezeichen. Erst CATALOG "$: 


FILENAME" ist ein gültiger Basic- und @,$:FILENAME ein 
gültiger Monitor-Befehl. 

Nun wieder zu den Anwendungen des Jokers: 

Auch die Kombination ist möglich. »$:F?L*« listet alle Fi¬ 
les, die folgende Bedingungen erfüllen: 

1. Das erste Zeichen im Filenamen ist ein F 

2. Das dritte Zeichen im Filenamen ist ein L 

3. Der Filename besteht aus mindestens drei Zeichen. 
Folgt nun der Angabe des Filenamens noch ein »=« und 

darauf der Filetyp, kann man auch nur bestimmte Files zu¬ 
lassen: 

@,$:F?L* =SEQ 

listet alle Files, die die oben genannten drei Bedingungen 
erfüllen und noch eine vierte: 

4. Das File muß ein SEQ-File (sequentielles File) sein. 
Nun verstehen wir auch, warum »@,$:* =PRG« alle Pro¬ 
grammfiles auflistet, denn aus dem Filenamen »$: * = PRG« 
ergeben sich folgende Bedingungen: 

1. Der Filename muß mindestens aus einem Zeichen be¬ 
stehen. Diese Bedingung erfüllt jedes File, also können 
wir sie weglassen. 

2. Es muß sich um ein Programm-File handeln. 
Letztendlich muß also nur die zweite Bedingung (Pro¬ 
gramm-File) erfüllt sein. 

Der Speicher-Befehl S 

Wir haben uns jetzt etwas ausführlich mit den Anwen¬ 
dungsmöglichkeiten der Directory-Ausgabe auseinander¬ 
gesetzt, aber es hat sich gelohnt: Sie können sich diese 
Kenntnisse auch für die Basic-Befehle CATALOG und DI¬ 
RECTORY zunutze machen! 


— 
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120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


**************************** 

SIMULATION DES MONITORBE- * 
* 

FEHLS *F' MITTELS BASIC * 


REM 
REM 
REM 
REM 
REM 
REM 

REM ***************************** 

REM * * 

REM * BY FLORIAN MUELLER * 

REM * * 

REM «HH»-1H^«HH********************* 

PRINT CHR*(13) CHR*(13)"FUELLEN MITTELS BASIC 
M CHR*(7) CHR*(13) 

INPUT “SPEICHERBANK DES FUELLBEREICHS";B 
INPUT "ANFANGSADRESSE D.FUELLBEREICHS":A*: A« 
DEC(A*> 

INPUT "ENDADRESSEC3SPACE>DES FUELLBEREICHS";E 
#: E=DEC(E*> 

INPUT "FUELLBYTE"; F*: F=DEC(F*> 


260 
270 

280 FA-A: REM FUELLADRESSE INITIALISIEREN 
290 : 

300 
310 
320 


330 

340 

350 

360 


DO UNTIL FA>E 
s BANK B: POKE FA,F 
s IF PEEK(FA)<>F THEN PRINT 
*<B> f l>;HEX*<FA>s EXIT 
x FA-FA+l 
LOOP 
: 

RUN 


??? RIGHT*(HEX 


< I IA> 

< IQB> 
<I2B> 

< IA9> 

< JIE> 
<JQF> 

< J2C> 

< JAD> 
<GI2> 
<GQ3> 
<J2C> 

< 1S7> 

<708> 

< I AR> 

< A7B> 

<SC3> 

<1NV> 

<2SB> 

<6CI> 

<5SN> 

<TVK> 

<IEA> 

<STD> 

<NKH> 

<R39> 

<2SB> 

<54M> 


Listing 5. F-Befehl als Simulation in Basic 


Nachdem wir uns im letzten Abschnitt mit der Disketten¬ 
verwaltung befaßt haben, sollen uns nun die Ein-/Ausgabe- 
möglichkeiten mit dem Monitor eine Weile beschäftigen, 
denn wenn man ein Programm erstellt, geändert oder gete¬ 
stet hat (für alle diese Anwendungen nimmt man ja den Mo¬ 
nitor her), will man es meist auch speichern. 

Der Befehl zum Speichern heißt S und ist die Abkürzung 
des englischen Wortes »to save«, das mit »speichern« zu 
übersetzen ist. 

Die Syntax ist folgende: 


aata? 
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S "FILENAME", Gerät, Anfangsadresse, Endadresse+1 

Der Filename darf maximal 16 Zeichen lang sein (wie bei 
den Basic-Befehlen DSAVE und BSAVE zum Speichern). 
Die Geräteadresse wird als Byte-Wert (zum Beispiel »08« 
für Diskettenlaufwerk) angegeben. Anfangs- und End¬ 
adresse geben den Bereich an, der gespeichert werden 
soll. Dabei ist jedoch zu beachten, daß die Endadresse 
nicht mitgespeichert wird. Daher heißt es in der Kurzüber¬ 
sicht (Bild 14) auch »Endadresse+1«. 

Wenn man also die Endadresse um eins erhöht, ist es 
möglich, den gesamten Bereich (auch das letzte Byte) zu 
speichern. Leider kann man dem Monitor nicht die End¬ 
adresse in Form von »$1F05+1« mitteilen, sondern muß die 
Addition selbst durchführen. Die Endadresse Ihres Pro- 


Befehl: S 

Syntax: S "NAME".Gerät,Anfangsadresse 

Endadresse + 1 

Wirkung: speichert File unter NAME auf das 

angegebene Gerät von Anfangs¬ 
adresse bis Endadresse. 

englisches Wort: Save (retten = > speichern) 

Bild 14. Kurzübersicht zum Befehl S 

gramms dürfte Ihnen in der Regel bekannt sein, so daß die 
Addition nicht weiter schwerfallen sollte. 

Nun aber wieder zum S-Befehl. 

Der Befehl speichert den angegebenen Speicherbereich 
(die Speicherbank wird in den Adressen angegeben) auf 
Diskette. Hierfür gibt es aber doch schon den Basic-Befehl 
BSAVE, oder? 

Das ist richtig. Der BSAVE-Befehl entspricht in der Wir¬ 
kung dem S-Befehl des Monitors. Andererseits ist es aber 
gut, daß auch der Monitor einen Speicher-Befehl zur Verfü¬ 
gung hat, denn oft wurde der Speicher des Computers 
beim Arbeiten mit dem Monitor so verändert, daß ein X- 
Befehl zum erneuten BREAK (also Neustart des Monitors) 
oder gar zum Ausstieg, aber nicht zum Sprung ins Basic 
führt. In einem solchen Fall besteht die einzige Hoffnung im 
Monitor selbst, und Sie können das fehlerhafte oder fehler¬ 
haft unterbrochene Programm wenigstens noch SAVEn. 

Im übrigen kann der S-Befehl - wie alle anderen I/O- 
Befehle des Monitors auch (I/O-Befehle sind Befehle wie 
Klammeraffe oder S, die sich auf Eingabe/Ausgabe = In¬ 
put/Output = I/O beziehen), zu einer Fehlermeldung füh¬ 
ren, die das Betriebssystem erzeugt. Diese Meldung heißt 
»I/O ERROR #X«, wobei X eine Nummer ist, die über den 
Fehler Auskunft gibt. Ein gängiger Fehler ist »I/O ERROR 
#5«, was der Bedeutung der Basic-Fehlermeldung »DEVI¬ 
CE NOT PRESENT« entspricht. 

In Bild 15 finden Sie die Bedeutung der einzelnen l/O- 
ERROR-Meldungen, die übrigens auch beim Klammeraf- 
fen-Befehl Vorkommen können. 

Der Ladebefehl: L 


Es gibt noch einen weiteren Basic-Befehl zum Speichern, 
nämlich SAVE beziehungsweise DSAVE. Dieser speichert 
- wie BSAVE oder der Monitor-Befehl S - auch nur einen 
Bereich ab, und zwar den, in dem das Basic-Programm ab¬ 
gelegt ist. Diesen Bereich muß er natürlich ausfindig ma¬ 
chen, denn die Speicherroutine des Betriebssystems be¬ 
nötigt Anfangs- und Endadresse+1 eines Speicherbe¬ 
reichs. 

Genau diese Informationen holt sich der Interpreter dann 
aus den Adressen $2D/$2E (Zeiger auf Anfangsadresse 
des Basic-Programms im Speicher) und $1210/81211 (Zei¬ 
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ger auf Endadresse+1 des Basic-Programms im Spei¬ 
cher). Da wir das Auslesen dieser Zeiger mittels Monitor 
oder Basic schon im Abschnitt über den M-Befehl bespro¬ 
chen haben, wäre es theoretisch möglich, daß Sie die Zei¬ 
ger auslesen und mit dem Monitor bearbeitete Basic-Pro- 
gramme dann über BSAVE oder S speichern. Dies ist aber 
eigentlich nur dann ratsam, wenn Sie aus dem Monitor her¬ 
aus nicht mit X ins Basic zurückkehren können (zum Bei¬ 
spiel wegen Fehleingaben). Wann immer es geht, ist es viel 
einfacher, mit X ins Basic zu springen und das Basic-Pro¬ 
gramm - sofern es auch über LOAD beziehungsweise 
DLOAD geladen wurde - mittels SAVE beziehungsweise 
DSAVE zu speichern. 

Ob es sich bei dem auf diese Weise gespeicherten Pro¬ 
gramm um ein Basic-Programm handelt, ist nicht von Inter¬ 
esse. Bedingung ist nur, daß das Programm 

- über die Basic-Befehle DLOAD "NAME" oder LOAD- 
" NAME " .Gerät (nicht LOAD" NAME",Gerät,1) geladen 
wurde und 

- die Zeiger $2D/$2E beziehungsweise $1210/$1211 auf 
Anfangs- beziehungsweise Endadresse des Basic-Pro¬ 
gramms zeigen (also diese Zeiger nicht manipuliert wur¬ 
den). 

Den Monitor-Befehl S setzt man in der Regel zum Spei¬ 
chern einzelner Bereiche (zum Beispiel Maschinenrouti¬ 
nen) ein. 

So wie S der Befehl zum Speichern ist, gibt es L als Be¬ 
fehl für »to load« (laden) zum Laden von Programmen. 

Der L-Befehl hat zunächst einmal folgende Syntax: 

L "FILENAME".Gerät,Ladeadresse 
Das Beispiel »L "BEISPIEL",08,10000« lädt das Pro¬ 
gramm »BEISPIEL« (Filename wie bei S maximal 16 Zei¬ 


Fefc^rn ummer 

entsprechende Meldung in Basic 

0 

BREAK 

1 

TOO MANY FILES 

2 

FILE OPEN 

3 

FILE NOT OPEN 

4 

FILE NOT FOUND 

5 

DEVICE NOT PRESENT 

6 

NOT INPUT FILE 

7 

NOT OUTPUT FILE 

8 

MISSING FILE NAME 

9 

ILLEGAL DEVICE NUMBER 


Bild 15. Übersicht über die I/O-Fehlermeldungen 


chen) von Gerät 8 (Diskettenlaufwerk) in Bank 1 ab Adresse 
$C000. 

So wie der Monitor-Befehl S auch durch den Basic- 
Befehl BSAVE ersetzt werden kann, können wir dieses Bei¬ 
spiel folgendermaßen mittels BLOAD in Basic formulieren: 
BLOAD"BEISPIEL",DO,U8, ON Bl,P(DEC ("C000")) 

Der einzige Vorteil des Monitor-Befehls L gegenüber 
dem BLOAD-Befehl, beziehungsweise des BSAVE-Befehls 
gegenüber dem Monitor-Befehl S ist, daß bei den Monitor- 
Befehlen die Geräteadresse frei wählbar ist (also auch Da- 
tasette möglich ist), während die Basic-Befehle BLOAD 
und BSAVE nur auf den lEC-Bus zugreifen (effektiv kann 
man also nur das Diskettenlaufwerk verwenden). Ob diese 
zusätzliche Möglichkeit der Monitor-Befehle tatsächlich ein 
Vorteil ist, muß dahingestellt bleiben, denn die Datasette ist 
wirklich kein angemessenes Speichergerät für den C128. 

Der Befehl L kennt noch zwei weitere Formen der Syntax, 
denn man kann Ladeadresse oder Ladeadresse und Gerä¬ 
tenummer entfallen lassen. Dann werden sogenannte 
Default-Werte eingesetzt. Default-Werte sind Werte, die bei 
der Übergabe von Parametern dann eingesetzt werden, 
wenn kein Wert geliefert wird. 
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»L "BEISPIEL ",08« lädt das Programm »BEISPIEL« von 
Gerät 8 (Diskettenlaufwerk) an die Anfangsadresse, die im 
Programm-File vermerkt ist. Mit dieser Anfangsadresse 
werden wir uns noch näher befassen, denn diese ist genau¬ 
so wichtig für ein File wie Blockzahl, Programmlänge oder 
Filetyp, wird aber leider nicht im Directory angezeigt. Nur 
soviel sei zunächst gesagt: In PRG-Files wird auch die 
Anfangsadresse beim Speichern des Files mitgespeichert. 
Falls wir diese beim Monitor-Befehl L oder beim Basic- 
Befehl BLOAD weglassen, wird die im Programm vermerk¬ 
te Anfangsadresse als Ladeadresse verwendet. 

Absolutes laden 


Gleiches geschieht beim Basic-Befehl LOAD" BEI¬ 
SPIEL",8,1. Diesen wollen wir jedoch übergehen, denn 
zum Laden von Maschinenprogrammen/Speicherberei¬ 
chen sollte man auf diese Variante verzichten und lieber auf 
BLOAD beziehungsweise den Monitor-Befehl L zugreifen. 

Die letzte Syntax-Variante von L ist 
L "BEISPIEL" 

In diesem Fall wird das File von Datasette geladen, und 
zwar an die im Programm vermerkte Anfangsadresse, da 
der C128 als Default-Gerät die Datasette gespeichert hat. 

Die gesamte Syntax von L finden Sie noch einmal in Bild 
16 als Kurzübersicht zusammengefaßt. 

Für Programme, die ohnehin Basic-Programme sind 
oder zumindest eine Basic-Zeile haben und am Basic-Start 
beginnen, ist der Basic-Befehl LOAD beziehungsweise 
DLOAD eindeutig vorzuziehen. Dieser bietet nämlich den 
Vorteil, daß das Programm hinterher nicht mit dem Monitor 
oder über BLOAD gespeichert werden muß - wo man ja 
Anfangs- und Endadresse selbst bestimmen muß son¬ 
dern daß man das Programm später über SAVE bezie¬ 
hungsweise DSAVE (siehe letzten Abschnitt) speichern 
kann. 

Fassen wir noch einmal kurz zusammen: Der BLOAD- 
beziehungsweise Monitor-L-Befehl ist nur beim Laden von 
Maschinenprogrammen angebracht. In der Wirkungswei¬ 
se besteht kein Unterschied, der L-Befehl des Monitors er¬ 
laubt jedoch auch das Laden von Datasette. Der LOAD- be¬ 
ziehungsweise DLOAD-Befehl in Basic ist zur Bearbeitung 
von Basic-Programmen oder solchen, die in einigen Punk¬ 
ten wie Basic-Programme zu handhaben sind, besser ge¬ 
eignet. 

Im nun folgenden restlichen Teil dieses Abschnitts wollen 
wir uns noch mit den Unterschieden zwischen dem Laden 
an eine angegebene Ladeadresse und dem Laden an die 
im Programm enthaltene Anfangsadresse befassen. Insbe¬ 
sondere werden wir noch die dafür verwendeten Fachbe¬ 
griffe kennenlernen. 

Absolut laden heißt, daß ein Programm an die Adresse 
geladen wird, die beim Speichern als Anfangsadresse ver¬ 
wendetwurde. Beim Weglassender Ladeadresse beim Ba¬ 
sic-Befehl BLOAD beziehungsweise beim Monitor-Kom- 


Befehl: L 

Syntax: L "NAME"(.Gerätenummer) 

(.Ladeadresse) 

Wirkung: lädt File "NAME" vom angegebe¬ 

nen Gerät (falls weggelassen: 

#1 = Datesette) an die Adresse, ab 
der es gespeichert wurde, oder - 
falls angegeben - an die ge¬ 
wünschte Ladeadresse. 

englisches Wort: Load (laden) _ 

Bild 16. Kurzübersicht zum Befehl L 


mando L wird absolut geladen: Das Betriebssystem holt 
sich zuerst die Anfangsadresse, dann wird an diese gela¬ 
den. Das absolute Laden ist vor allem bei Maschinenpro¬ 
grammen angebracht. 

Relativ laden heißt, daß ein Programm an eine vorgege¬ 
bene Adresse geladen wird, und zwar unabhängig von der 
Adresse, ab der es gespeichert wurde. 

Bei Angabe der Ladeadresse beim Basic-Befehl BLOAD 
beziehungsweise beim Monitor-Komando Lwird relativ ge¬ 
laden: Das Betriebssystem lädt das Programm an die ange¬ 
gebene Anfangsadresse. 

Da Basic-Programme ziemlich unabhängig vom Spei¬ 
cherbereich sind, in dem sie sich gerade befinden (Beweis 
ist die Möglichkeit des Verschiebens der Basic-Programme 
im Abschnitt über den T-Befehl, beziehungsweise beim 
Einschalten der hochauflösenden Grafik, wo das aktuelle 
Basic-Programm nach $4001 verschoben wird), ist der 
Basic-Befehl LOAD beziehungsweise DLOAD darauf ein¬ 
gerichtet, das Programm an eine Ladeadresse zu laden. 
Sie werden sich vielleicht fragen, woher diese Ladeadres- 


Befehl: V 

Syntax: V "NAME"(.Gerätenummer) 

(.Ladeadresse) 

Wirkung: vergleicht aktuellen Speicher - falls 

angegeben: von der Ladeadresse 
an - mit dem File "NAME" auf 
dem angegebenen Gerät (falls 
weggelassen: 1). 

englisches Wort: Verify (überprüfen) 


Bild 17. Kurzübersicht zum Befehl V 


se kommt, wenn man doch bei LOAD "BEISPIEL",8 oder 
DLOAD "BEISPIEL" keine Ladeadresse angibt. Die Frage 
ist berechtigt, aber um die Ladeadresse müssen wir uns 
keine Sorgen machen. Diese Arbeit nimmt uns der Interpre¬ 
ter ab, der beim Laden über DLOAD (beziehungsweise LO¬ 
AD ohne Angabe der Sekundäradresse) die Adresse als 
Ladeadresse einsetzt, die im Zeiger $2D/$2E als Anfangs¬ 
adresse des aktuellen Basic-Programms im Speicher ab¬ 
gelegt ist. 

Der Überprüf-Befehl: V 


Da Maschinenprogramme meist nur in einem Bereich lauf¬ 
fähig sind, kommt für Sie relatives Laden selten in Betracht. 

Zum »Triumvirat« der I/O-Befehle LOAD, SAVE und VERI¬ 
FY fehlt uns nur noch letzterer. Dieser Befehl heißt beim 
TEDMON, wie nicht anders zu erwarten war, V als Abkür¬ 
zung für »to verify« (englisches Wort für »nachprüfen«). 

Die Syntax ist die des L-Befehls (die Routine des Be¬ 
triebssystems für L beziehungsweise V ist sogar ein und 
dieselbe) und kann noch einmal der Kurzübersicht (Bild 17) 
entnommen werden. Der Unterschied in der Funktionswei¬ 
se ist der, daß das Programm nicht in den Speicher geladen 
(wie es bei L der Fall wäre), sondern mit den entsprechen¬ 
den Speicherjnhalten verglichen wird. 

Falls keine Übereinstimmung besteht, erscheint die Mel¬ 
dung »VERIFYING ERROR», ansonsten nur »VERIFY- 
ING«. 

Da mit den aktuellen Speicherinhalten Vergleiche durch¬ 
geführt werden, ist es sogar möglich, relativ, beziehungs¬ 
weise absolut, zu vergleichen. 

Der V-Befehl ist eigentlich nur deshalb interessant, weil 
es keinen BVERIFY-Befehl im Basic gibt. Um nur die Lauf- 
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fähigkeit der Floppy 1571 zu testen, ist der V-Befehl über¬ 
flüssig, denn die Floppy 1571 führt selbständig ein Verify 
durch (dabei wird allerdings nicht mit dem Speicher, son¬ 
dern mit dem Puffer der Floppy-Station verglichen). 

Nun haben wir alle I/O-Befehle des Monitors (@, L, S, V) 
besprochen. Der folgende Abschnitt wird sich intensiv mit 
dem Thema Ein-/Ausgabe (I/O) befassen. 

Die absolute Anfangsadresse eines Programms ist die 
Adresse, ab der das Programm gespeichert wurde. Beim 
absoluten Laden ist diese Adresse der Ersatz der Lade¬ 
adresse beim Relativladen. 

Bei einem Diskettenfile enthalten die beiden ersten Bytes 
die absolute Anfangsadresse: 

Erstes Byte des Files: LB der absoluten Anfangsadresse 
Zweites Byte des Files: HB der absoluten Anfangsadresse 

Auf der 1571-Test/Demo-Diskette befindet sich übrigens 
ein interessantes Programm zum Auslesen und Manipulie¬ 
ren der Anfangsadresse. Es trägt den Filenamen »LOAD 
ADDRESS«, übersetzt also »Ladeadresse«. 

Bei vielen Maschinenprogrammen ist die absolute An¬ 
fangsadresse gleich der Startadresse. Das heißt, wenn Sie 
ein Programm an die Adresse 49152 laden, wird es unter 
Umständen auch mit SYS 49152 gestartet. Hierfür kann je¬ 
doch keinerlei Garantie übernommen werden. 

Der Unterschied zwischen Anfangs- und Startadresse ist 
folgender: Die Anfangsadresse beschreibt nur die »geo¬ 
graphische« Lage im Speicher, sagt aber nichts über den 
Start des Programms aus. Die Startadresse hingegen gibt 
keine Auskunft darüber, wo das Programm im Speicher be¬ 
ginnt, sagt uns aber, wo man das Programm startet. In der 
Literatur werden diese Begriffe oft durcheinandergewür¬ 
felt. 

Für die Anwendung der Befehle L, S und V ist es sehr 
wichtig zu wissen, wo im Speicherdas Programm liegt, das 
man bearbeiten möchte. Dazu hilft uns ein Programm, das 
zwar das längste, aber sicher auch nützlichste Listing die¬ 
ses Kurses ist: Listing 6. Dieses Listing sollten Sie unbe¬ 
dingt abtippen, denn die geringe Abtipparbeit erspart Ih¬ 
nen hinterher viel Mühe. Das Programm arbeitet übrigens 
nur mit einem Diskettenlaufwerk. Wenn Sie bei der Einga¬ 
be des Filenamens »$« eingeben und < RETURN> 
drücken, wird das Directory ausgegeben. 

Bei anderen Filenamen wird das entsprechende Pro¬ 
gramm untersucht. Zunächst errechnet Listing 6 die 
Anfangsadresse wie beschrieben, dann wird aus dem Di¬ 
rectory die Block-Anzahl herausgesucht und aus dieser An¬ 
gabe die maximal mögliche Endadresse errechnet. Vor¬ 
aussetzung für die Richtigkeit dieser Angabe ist, daß die 
Block-Anzahl im Directory nicht manipuliert worden ist. 

Ermittlung von Anfangs- und Endadresse 


Die Endadressen-Angaben erfolgen übrigens immer um 
eins erhöht, so daß man sie direkt für den S-Befehl über¬ 
nehmen kann. Wenn es auf ein paar Bytes hin oder her 
nicht ankommt, reicht die Angabe der maximalen End¬ 
adresse. Die exakte Endadresse, die auf Wunsch auch be¬ 
stimmt wird, kann man direkt beim S-Befehl einsetzen. 

Außerdem ermöglicht das Programm eine Druckeraus¬ 
gabe, so daß Sie sich einen Katalog mit den genauen Daten 
Ihrer Programme leicht zusammenstellen können. 

Im folgenden sei aber auch eine Methode zur Auffindung 
der exakten Endadresse ohne Hilfsprogramm vorgestellt. 
Wir numerieren die Schritte mit römischen Ziffern. 

I. Speicher mittels F mit einem Füll-Byte, das relativ sel¬ 
ten ist, füllen. Beispiel: F 1C01 FDFF AB 
SAB hat sich als Füll-Byte bewährt, natürlich sind auch 
ähnliche Zahlen wie $AA oder $FD möglich. $00 oder $FF 


sollte man nicht verwenden, da diese Bytes (insbesondere 
$00) oft am Ende eines Programms stehen - an späterer 
Stelle würden Sie dann merken, daß sich in so einem Fall 
nicht die exakte Endadresse bestimmen ließe. 

II. Programm mittels Lladen. Beispiel: L "NAME",08,4000 
Nun sieht unser Speicher folgendermaßen aus: 

A) *** Speicherbeginn-Programmbeginn *** 

B) *** Programmbeginn (im Beispiel $4000)*** 

C) *** Programmcode *** 

D) * * * Programmende (letztes Byte) * * * 

E) *** Füll-Bytes (im Beispiel $AB-Bytes) *** 

F) *** Speicherende *** 

Die Endadresse ist nun der Punkt D, also die letzte Spei¬ 
cherzelle vor dem Bereich, der nur mit Füll-Bytes gefüllt ist. 
Da für den S-Befehl die Endadresse immer um eins erhöht 
werden muß, können wir gleich Punkt E nehmen (Anfangs¬ 
adresse des Bereichs, der nur mit Füll-Bytes belegt ist). 

Vor dem Laden (Punkt II) war der gesamte Speicher ab 
Stelle B mit Füll-Bytes belegt; durch das Laden wurde ein 
Teil der Füll-Bytes vom Programmcode ersetzt. Da es sich 
beim geladenen Programm in der Regel jedoch nicht um 
den ganzen Speicher handelt, ist noch der Bereich ab Stel¬ 
le E mit den Füll-Bytes belegt. Folglich ist die erste Adresse, 
ab der - bis Speicherende - nur noch Füll-Bytes stehen, die 
Endadresse des Programms; diese plus eins ist die tat- 


ANFANGSADRESSE 


UND ENDADRESSE 


100 REM 
110 REM 
120 REM 
130 REM 
140 REM 

150 REM * * 

160 REM * EINES DISKETTENPROGRAMMS * 

170 REM * * 

180 REM * ERMITTELN. * 

HBgpi * * 

200 i\EM ******** »»»♦»♦**»**»»»»*»»*»»»•» 

210 REM * * 

220 REM * BY FLORIAN MUELLER * 

230 REM * * 

240 REM ******************************* 

250 : 

260 IF PEEK(215)0128 THEN PRINT "NUR IM 80-ZEICH 
EN-MODUS LAUFFAEHIG": STOP 
270 FAST : SCNCLR : WS="#####" 

280 PRINT CHRS(27)"0": PRINT "BESTIMMUNG VON ANFA 
NGS- UND ENDADRESSE" CHRS<13) 

290 INPUT "FILENAME";NS: IF N*="S" THEN PRINT : D 
IRECTORY : PRINT : GOTO 280 
300 OPEN 15,8,15,"10" 

310 IF DSO0 THEN 340 
320 OPEN 1,B,3,NS+",P,R" 

330 IF DS°0 THEN 410 

340 PRINT : PRINT CHRS(15)"DISKFEHLER: ";DSS: PRI 
NT 

350 CLOSE 1: CLOSE 15: GOTO 290 
360 : 

370 REM ************************** 

380 REM * INFORMATIONEN AUSGEBEN * 

390 REM ************************** 


410 

420 
430 
440 
450 
460 
470 
4B0 
490 
500 
510 
520 
530 
540 
550 
560 
570 
5B0 
590 
600 
610 
620 
6 JO 
640 
650 
660 
670 
680 


SCNCLR : PRINT : PRINT "INFORMATIONEN FUER 
CHRS(34 > 5 NS;CHRS(34 > 

PRINT 

: 

REM ****************** 

REM * ANFANGSADRESSE * 

REM ****************** 

z 

PRINT : PRINT "ANFANGSADRESSE:",, 

GET «tl,AS: GET #1,B* 

IF AS-"" THEN A*«CHR*<0> 

IF BS«"" THEN BS-CHRS<0) 

A-ASC < AS > +256*ASC(BS) 

PRINT USING W*;A 5 : PRINT " - *";HEX*<A> 
CLOSE 1 
: 

REM ********************** 

REM * ANZAHL DER BLOECKE * 

REM ********************** 

: 

PRINT : PRINT "ANZAHL DER BLOECKE AUF DISK: 

OPEN 1,8,0,"S: ’+NS 

GET #1,AS,BS 

GET #1,AS,BS 

GET #1,AS,B* 

BET #1,BS: IF STO0 THEN 840 
IF BSOCHRS<34) THEN 650 

DO : GET .#1,BS: LOOP WH ILE BSOCHRSC34) 

DO : GET #1,BS: LOOP WHILE BS=CHR*<32) 


< I IA> 

< IQB> 

< I28> 

< I A9> 
<JIE> 

< JQF> 

< J2C> 

< JAD> 
<GI2> 
<GQ3> 
<J2C> 

< JAD> 
<JIE> 
<JQF> 

< I2B> 
<3SF> 

< VKK> 
<98H> 

<10K> 

<0LB> 

<2RQ> 
<EME> 
<431 > 
<RUR> 

<BS9> 

<FKV> 

<3CD> 

< IA9> 
<HI6> 
<HQ7> 
<7CT> 

< I VL> 
<TBU> 
<6SR> 
<H24> 
<HA5> 
<HI6> 
<4SJ > 

< IFM> 
<CUT> 
<PRM> 
<GIB> 
<K0H> 
<FBB> 
<0CN> 
<4SJ > 
<H24> 
<HA5> 

< I IA> 
<2SB> 
<HUP> 
<LJ6> 
<R9I > 
<P9I > 
<N9I > 
<FHM> 
<ATU> 
<NSK> 
<3VM> 
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sächliche Endadresse des Programms für den S- bezie¬ 
hungsweise BSAVE-Befehl. 

Im nächsten Schritt werden wir diese Endadresse nun er¬ 
mitteln. 

III. Grobeingrenzung des Bereichs, der nur aus Füll- 
Bytes besteht, mittels H. 

Das Problem hierbei ist, daß der Wert des Füll-Bytes - 
wenn auch nur selten - sicher ebenfalls im Programmcode 
vorhanden ist. Wenn wir nun mit H den Speicher ab der An¬ 
fangsadresse des Programmcodes nach dem Füll-Byte 
durchsuchen lassen (im Beispiel: H 4000 FDFF AB), so fin- 

Schritt für Schritt zur Endadresse 


det der Monitor ab und zu das Füll-Byte. Ab einem gewis¬ 
sen Punkt, der mit ziemlicher Sicherheit die Endadresse 
plus eins ist, findet der Computer eine Adresse nach der an¬ 
deren. Wenn dies der Fall ist, sollten Sie unbedingt die Aus¬ 
gabe mit < RUN/STOP > unterbrechen. Ungefähr können 
Sie jetzt an den gefundenen Adressen erkennen, ab wel¬ 
cher Stelle nur noch Füll-Bytes stehen: ab der erstgenann¬ 
ten Adresse, von der an nur noch Füll-Bytes stehen. 

Meist haben Sie nun schon die Adresse ausfindig ge¬ 
macht, aber wenn Sie noch unsicher sind, gibt es die »Fein¬ 
bestimmung«. 


690 DD : BET LDOP WHILE B*<>"" 

70® BET #1,A*,B*,A*,B* 

710 IF 0*="" THEN A*=CHR*<0> 

720 IF Bf’"" THEN B*=CHR*<0) 

730 B=ASC(A*)+2S6»ASC<B*> 

740 PRINT USINB W*;B;: PRINT - = *";HEX*(B> 

7S0 CLDSE 1 
760 : 

770 REM ****»**««»#»*»»**»**•»* 

7B0 REM » MAXIMALE ENDADRESSE * 

790 REM 
800 : 

810 PRINT : PRINT "MAXIMALE ENDADRESSE:“, 

020 E=A+254»B-2 

830 PRINT USINB WS;E;: PRINT " = *"iHEX*(E) 

B40 CLDSE 1: CLOSE 15 

850 PRINT : PRINT CHRS115)"TASTE DRUECKEN <S FUER 
GENAUE ENDADRESSE/D FUER DRUCKERAUSGABE DER 
DATEN)"s 

860 BET KEY BK*: IF BK*=“D“ THEN EE=E: M=ls BDTD 
1070: ELSE IF GK*<>“B" THEN RUN 
870 : 

B80 REM 

890 REM * GENAUE ENDADRESSE * 

900 REM 
910 : 

920 M=0 

930 PRINT CHR*(27)"D": PRINT CHR*<145)"GENAUE END 
ADRESSE FUER -S:", 

940 EE=A: OPEN 1,8,0,N* 

95© DO UNTIL ST AND 64 
960 : BET #1,A*: EE-EE+1 
970 LOOP : EE=EE-1 

980 PRINT USINB W*;EE;: PRINT " - *"iHEX*<EE) 

990 CLOSE 1 

1000 PRINT : PRINT CHR*(15)“TASTE DRUECKEN (D FUE 
R DRUCKERAUSBABE DER DATEN)"; 

1010 GET KEY GK*: IF GK*<>"D" THEN RUN 
1020 : 

1030 REM 

1040 REM * DRUCKERAUSBABE * 

1050 REM »»«»»»»**»»»».*»»« 

1060 : 

1070 REM 30 

» tt 

108O PRINT CHR*(27)"D" 

1090 OPEN 4,4 

1100 PRINT04,USINB V*;"FILENAME:";: PRINT»4,N* 

1110 PRINT04,USINB V*;"ANFANGSADRESSE:: PRINTH4 
.USINB NS;A;: PRINTÄ4," = *";HEX*(A> 

1120 PRINTH4.USING V*;"ENDADRESSE:";: PRINT04.USI 
NB W*;E;: PRINT04," - *";HEX*<EE>;: IF M*1 T 
HEN PRINTH4," (MAXIMAL)": ELSE PRINTK4," (FU 
ER 'S'-BEFEHL)" 

1130 PRINT44,USINB V*;"LAENGE IN DISK-BLOECKEN:"; 

: PRINT04,USINB W*;B;: PRINTW4," = *";HEX*(B 

1140 CLOSE 4 

1150 IF M«1 THEN B50: ELSE GOTO 1000 

Listing 6. Ermitteln von Anfangs- und Endadresse 
eines Diskettenprogramms 


Zeigen Sie den Bereich an, der Ihrer Meinung nach in 
Frage kommt, und suchen Sie genau die Stelle heraus, ab 
der nur Füll-Bytes stehen. 

Das war dann das Verfahren ohne Hilfsprogramm. Sie 
werden es vor allem auf anderen Computern, auf denen 
das Hilfsprogramm nicht läuft, fast unverändert verwenden 
können. Beim Arbeiten mit dem C128 sollten Sie doch das 
Hilfsprogramm verwenden - wie gesagt, die Abtipparbeit, 
die sich ohnehin in Grenzen hält, wird sich mehrfach loh¬ 
nen. 

Unser Drei-Schritte-Verfahren kommt vor allem bei der 
Arbeit mit der Datasette zur Anwendung, es hat aber auch 
gezeigt, wieviel man mit dem Monitor ermitteln kann, was 
sonst nicht möglich ist. 

Dafür, daß Sie sich so lange mit der Lade/Speicher- 
Theorie abgemüht haben, sollen Sie durch einen kleinen 
Trick belohnt werden. 

Leider existiert im Basic 7.0 kein Befehl zum Speichern 
der Bitmap der hochauflösenden Grafik (im 40-Zeichen- 
Modus natürlich). 

Wenn man nun weiß, daß die Grafik bei $2000 (#8192) 
beginnt und genau 64000 Bit (1 Bit pro Pixel), also 8000 By¬ 
te, umfaßt, kann man die Endadresse auch ausrechnen: 
Endadresse. Bitmap = $2000 + #8000 = $3F40 = 
#16192 

Da zur Endadresse 1 addiert werden muß, kann man im 
Monitor die Grafik-Bitmap folgendermaßen speichern: 

S "BITMAP",08,2000 3F41 

Über Basic geht dies mit 
BSAVE " BITMAP ",P8192 TO P16193 

Die gespeicherte Bitmap läßt sich leicht über BLOAD 
"BITMAP" oder L "BITMAP",08 (im Monitor) laden. 

Bis jetzt haben wir Ihnen, um Sie nicht mit zu viel Informa¬ 
tionen zu belasten, verschwiegen, wie man die Ausgaben 
des 7.LDM0N auf den Drucker leitet. 

Druckerausgabe mit dem Monitor 


Als Beispiel wollen wir den Bereich $FC00 bis $FC30 in 
Bank 15 ($F) auf den Drucker dumpen lassen. Dazu gehen 
wir folgendermaßen vor: 

OPEN 4,4:CMD 4:MONITOR 

Sie sehen nun, wie die Monitor-Einschaltmeldung auf 
dem Drucker ausgegeben wird. 

Ferner blinkt der Cursor - wie normal. 

M FFC00 FFC30 

Sie sehen nun, wie eine Dump-Zeile nach der anderen 
ausgegeben wird - auf dem Drucker! 

Aber Vorsicht: Die letzte Zeile befindet sich wahrschein¬ 
lich noch im Drucker-Puffer und nicht auf dem Papier. Wenn 
Sie einen weiteren Ausgabe-Befehl ausführen lassen, wird 
zuerst diese letzte Zeile ausgegeben und dann die neue 
Ausgabe. Wenn Sie aberden Monitor verlassen wollen, las¬ 
sen Sie bitte Ihren Drucker eingeschaltet und geben Sie zu¬ 
erst X ein. Dann schließen Sie noch über 
PRINT#4: CL0SE4 

den Druckerkanal. Wenn Sie diese letzten Befehle nicht 
eingeben, wird unter Umständen eine Ausgabe-Zeile ver¬ 
schluckt! 

Die Druckerausgabe ist vor allem dann sinnvoll, wenn 
man Maschinenprogramme disassembliert (?) oder dumpt. 
Falls Ihnen noch nicht bekannt ist, was Disassemblieren, 
Assemblieren oder Registeranzeige sind, so erfahren Sie 
alles darüber in den folgenden Abschnitten. 

Nachdem wir uns bislang nur mit den Anwendungsmög¬ 
lichkeiten des TEDMON auf Basic-Programme befaßt ha¬ 
ben, sollen nun auch die Maschinenprogrammierer auf ih¬ 
re Kosten kommen. 


<KN9> 

<2R7> 

<HUh> 

<8!_G> 

<Q59> 

<5H3> 

<G6N> 

<7CT> 

<GA1> 

<BDD> 

<3M2> 

<BVA> 

<ACS> 

<CP5> 


<A4P> 

<BL6> 

<8T3> 

<K2G> 

<KAH> 

<MIQ> 

<ATB> 

<VBV> 

<C4B> 

<FB8> 

<UP4> 

<U4D> 

<B5N> 

<745> 

<H6N> 

< 0FS> 
<070 

< 001 > 
<3SF> 
<248> 
<2C9> 
<209> 

<201 > 
<ADG> 
<OPE> 
<RDF> 

<FVP> 


<GD4> 


<VBK> 

<C0L> 

<VU4> 
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Die bisher erklärten Befehle haben als Basis den M- 
Befehl, denn alle stehen in enger Verbindung mit ihm. Bei 
den Ein/Ausgabe-Befehlen, die für jede Art Anwendung 
des Monitors interessant sind und auch entsprechend be¬ 
sprochen wurden, kann man das allerdings nicht sagen. 

Im folgenden werden wir einige Befehle, die speziell für 
die Anwendung des TEDMON auf Maschinenprogramme 
vorgesehen sind, besprechen. 

TEDMON und Maschinensprache 


Die Basis dieser Befehle ist wohl der A-Befehl, den wir aller¬ 
dings nicht als ersten besprechen (M war ja auch nicht un¬ 
ser erster Befehl). 

Den ersten Kontakt mit einer Monitor-Funktion für die Be¬ 
handlung von Maschinenprogrammen haben wir schon 
beim Starten des Monitors über MONITOR. Es handelt sich 
hierbei um die Registeranzeige (englisch »registerdisplay« 
genannt). 

Diese haben wir zunächst übergangen, hier soll aber je¬ 
des Detail dieser Registeranzeige besprochen werden. 

Wenn der Monitor über den Assembler-Befehl BRK akti¬ 
viert wird, so merkt sich der Monitor den Zustand der einzel¬ 
nen Register. 

Diese werden dann, nachdem sie zwischengespeichert 
worden sind, automatisch angezeigt: 

PC SR AC XR YR SP - Erklärungszeile 
;FB000 00 00 00 00 F8 - Werte der Register 

Diese Meldung erhalten Sie beim Start über den Basic- 
Befehl MONITOR, da bei diesem der TEDMON von $B000 
in Bank $F angesprungen wird. Daher steht unter PC (PC 
steht für »program counter« oder deutsch »Programmzäh¬ 
ler«) die Adresse $FB000. An dieser Adresse ist beim Start 
über den Maschinenbefehl BRK (Opcode: $00) erkennbar, 
von wo aus der BRK erfolgte. Dazu muß man allerdings vom 
PC-Wert 2 subtrahieren. Außerdem ist zu beachten, daß als 
Speicherbank bei PC immer $F angegeben wird. Der 
Grund dafür ist der, daß der Prozessor bei einem BRK wie 
bei anderen, ähnlichen Impulsen (Reset, IRQ, NMI) immer 
$F als Speicherbank einstellt. 

SR ist der Zustand des Statusregisters, das die einzelnen 
Statusbits enthält (N-, V-, B- ,D-, I-, Z- und C-Flag). Mit Hilfe 
der Befehle % und $ kann man nun einzelne Bits behan¬ 
deln und das Ergebnis als ganzes Byte ins Hexadezimalfor¬ 
mat umwandeln lassen. 

Die drei darauffolgenden Zwei-Buchstaben-Abkürzun- 
gen stehen für Akku, X- und Y-Register: 

AC = ACcumulator = Akkumulator 
XR = X Register = X-Register 
YR = Y Register = Y-Register 

SP ist der Stapelzeiger (englisch »stack pointer«). $F8 ist 
der Initialisierungswert des Stapelzeigers. Bei dem Wert, 
der unter SP steht - also dem Stapelzeigerinhalt - kann es 
durchaus Vorkommen, daß bei Ihnen andere Werte als $F8 
stehen (zum Beispiel $F9). Bei Reset und gleichzeitigem 
Halten von < RUN/STOP > wird übrigens auch der Monitor 
angesprungen. Unter SP steht dann $FF (der Initialisie¬ 
rungswert des Stapelzeigers, den das Betriebssystem in 
der Resetbehandlung gibt). 

In der Zeile unter den Zwei-Buchstaben-Abkürzungen, 
die nun erklärt sind (die Bedeutung der ausgeschriebenen 
Wörter sind einem Assembler-Lehrbuch zu entnehmen), 
stehen die einzelnen Inhalte der darüberstehenden Regi¬ 
ster im Hexadezimalformat. 

Das Semikolon »;« am Anfang der Zeile, die die einzelnen 
Werte angibt, ist ein eigenständiger Befehl, der uns ein Än¬ 
dern der Registerinhalte ermöglicht. Wie beim M-Befehl 
(dort ist der Änderungsbefehl das >) müssen wir dazu nur 
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die alten Werte überschreiben. Soviel Informationen finden 
Sie in jeder guten Beschreibung, es muß aber eins unbe¬ 
dingt gesagt werden, um Mißverständnisse auszuräumen. 

Die Register werden nicht in Wirklichkeit geändert! Wenn 
Sie also mit < RETURN > die Register übernehmen las¬ 
sen, ändern sich nicht die echten Prozessorregister (da der 
Monitor ein Maschinenprogramm ist und somit dauernd die 
Register einsetzt und dabei natürlich ändert, wäre dies 
auch weder möglich noch sinnvoll), sondern nur die Zwi¬ 
schenspeicher der Prozessorregister. 

Diese Zwischenspeicher werden beim Anspringen eines 
Maschinenprogramms über den G-Befehl, der noch be¬ 
sprochen wird, in die tatsächlichen Prozessorregister über¬ 
nommen. 

An späterer Stelle werden wir uns wieder mit der 
Registeranzeige und vor allem der Anwendung beschäfti¬ 
gen. Zunächst soll uns aber der Start des Monitors über 
den BRK-Befehl interessieren. 


Befehl: D 

Syntax: D (Anfangsadresse) (Endadresse) 

Wirkung: disassembliert Bereich von Anfangs¬ 

adresse bis Endadresse. Falls die 
Endadresse fehlt, werden 21 Zeilen 
von Anfangsadresse an disassem¬ 
bliert, falls kein Parameter übergeben 
wird: 21 Zeilen von der letzten über 
M oder D bearbeiteten Adresse an. 

englisches Wort: Disassemble (disassemblieren) 

Bild 18. Kurzübersicht zum Befehl D 

Wenn der Prozessor bei der Abarbeitung eines Maschi¬ 
nenprogramms auf den Code $00 als Befehl trifft, interpre¬ 
tiert er tnesen als BRK-Anweisung. BRK (Abkürzung für 
»BReaK«) ist das Mnemonic für den Befehl, der einen Ab¬ 
bruch des aktuellen Maschinenprogramms veranlaßt. 

Eine Wirkung des BRK-Befehls ist die, daß der Pro¬ 
grammzähler (PC) auf den Stapel gelegt wird. Dann springt 
der Prozessor über einen Vektor, der im ROM steht, zur 
BRK-Routine des Betriebssystems. Diese wiederum 
springt über den BRK-Vektor (auch Break-Vektor genannt) 
$0316/$0317 zu einer weiteren BRK-Routine ab $B003, die 
(fast) dem Monitor-Start gleichkommt. 

In der Testphase eines Maschinenprogramms ist es also 
ganz interessant, an allen möglichen Stellen des Pro¬ 
gramms BRK-Befehle einzusetzen; wenn der Computer 
auf so einen BRK stößt, wird der Monitor gestartet, und 
dank der automatischen Registeranzeige kann man be¬ 
quem sehen, wie das Programm gearbeitet hat. 

Bevor wir uns nun in die Assemblier- und Disassemblier- 
Befehle stürzen, müssen wir schnell noch die Begriffe klä¬ 
ren. 

Beide Formen der Programmbehandlung dienen der 
Maschinensprache-Programmierung. Maschinensprache 
ist die Sprache, die die CPU (»Central Processing Unit« = 
zentrale Prozessoreinheit) als Hauptsteuerungsbaustein 

Der Disassemblier-Befehl: D 


unseres Computers versteht. Diese Maschinensprache be¬ 
steht nur aus elektronischen Signalen, also 0- und 1-Bits. 8 
Bit gehören auch hier fest zusammen (Byte). Ein Byte kann 
sowohl für einen Befehl (zum Beispiel LDA) als auch für ei¬ 
nen Operand stehen. Wenn man Bytes hexadezimal dar¬ 
stellt, sieht »LDA #$20« folgendermaßen im Speicher aus: 
A9 20. 

Mit LDA #$20, beispielsweise als ASCII-Code im Spei- 
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eher abgelegt, kann der Computer ohne bestimmte Pro¬ 
gramme nichts anfangen. Er versteht zunächst nur 
%10101001 (ein- aus- ein- aus- ein- aus- aus- ein) als Anwei¬ 
sung zum Laden des Akkumulators. Wenn wir statt dessen 
A9 schreiben, so machen wir es damit für uns lesbarer. An 
der Tatsache, daß der Computer nur binär arbeitet, ändert 
dies nichts. 

Am Rande sei hier nur erwähnt, daß der Computer ge¬ 
naugenommen auch kein Basic versteht. Das geht nur auf¬ 
grund eines sehr langen Maschinenprogramms, das fest 
im ROM eingebaut ist und »Basic-Interpreter« heißt, da es 
Basic-Befehle in die für die CPU verständliche Maschinen¬ 
sprache »übersetzt«. 

Nun aber wieder zur Darstellung eines Maschinenpro¬ 
gramms: Auch wenn der erste Schritt getan ist, indem wir 
anhand von hexadezimalen Bytes das Programm »lesen« 
können, so ist es doch sehr schwer, A9 20 - wenn man es 
beim Memory-Dump erhält - als »lade Akku mit $20« zu ver¬ 
stehen. Zudem gibt es ja auch Befehle, die nicht nur einen 
Operand ($20), sondern gleich 2 (LB und HB) oder gar 
keinen haben, und dann müßte man zusätzlich zu unzähli¬ 
gen Opcodes auch die Länge der darauf folgenden Para¬ 
meter wissen. 

Kurzum, es ist nahezu unmöglich. Daher steilen wir die¬ 
sen Befehl auch mit »LDA #$20« dar. Diese Schreibweise 
nennt man mnemonische Schreibweise, da »LDA« ein Mne- 
monic (das Wort »Mnemonic« kommt aus dem Griechi¬ 
schen und heißt »Gedächtnishilfe«) ist. LDA ist zwar nicht so 
schön verständlich wie ein Basic-Befehlswort (zum Bei¬ 
spiel COLLISION oder COLOR), aber immerhin besser als 
A9. LDA ist nämlich die Abkürzung eines sinnvollen engli¬ 
schen Ausdrucks: LoaD Accumulator. 

Ein weiterer Vorteil der Mnemonics ist, daß man weniger 
Mnemonics als Opcodes benötigt, da auf ein Mnemonic 
mehrere Adressierungsarten entfallen können (wobei das 
Mnemonic jedesmal LDA heißt), zum Beispiel LDA $20 


MONITOR 

PC 

SR HC XR 

VR SP 

; FB080 

00 00 00 

00 F8 

. F4018 

R9 00 

LDH #$00 

. F401FI 

85 15 

STR $15 

. F401C 

58 

CLI 

. F401O 

4C 37 40 

JMP $4D37 

. F4020 

00 

BRK 

. F4021 

FF 

??? 

. F4022 

FF 

??? 

. F4023 

20 7fi 41 

JSR $417H 


Bild 19. Beispiel für die Anwendung des D-Befehls 


oder LDA #$20 oder LDA ($20),Y, wogegen jede neue 
Adressierungsart für ein und denselben Befehl einen neu¬ 
en Opcode braucht. 

Die Mnemonics sind also die eindeutig bessere Schreib¬ 
weise eines Maschinenprogramms, da sie einer »Sprache« 
schon viel näher kommen als Nullen und Einsen oder Hex- 
Bytes. Der Haken dabei ist jedoch, daß der Computer wie 
gesagt mit den Mnemonics nichts anzufangen weiß. Natür¬ 
lich könnte man sein Programm auf dem Papier in Mnemo¬ 
nics schreiben und dann in mühevoller Kleinarbeit ins he¬ 
xadezimale Format umwandeln, so daß man es mit dem 
Monitor eingeben kann. In den Anfangsstadien des Com- 
puterns war dies auch so. Mittlerweile sind wir jedoch 
schon viel weiter, und da dieses Umwandeln eine reine Re¬ 
chenaufgabe ist, lassen wir es vom Computer durchführen. 
Ein solches Umwandeln von Mnemonics ins Speicherfor¬ 
mat nennt man »Assemblieren« (gesprochen: »äßemblie- 


ren«). Ein Programm, das diese Umwandlung durchführt, 
nennt man »Assembler« (gesprochen: »äßembler«). Im 
TEDMON ist ein solcher Assembler in Primitivstform einge¬ 
baut. Den entsprechenden Befehl lernen wir im nächsten 
Abschnitt kennen. Beim Wort Assembler bestehen, da man 
statt Maschinensprache oft auch Assembler(-sprache) 
sagt, Verwechslungsmöglichkeiten, die der Sinnzusam¬ 
menhang allerdings oft ausräumt. 

Der dem »Assemblieren« entgegengesetzte Vorgang, 
nämlich das Umwandeln des Speicherformats eines Pro¬ 
gramms in mnemonische Schreibweise - zwecks besserer 
Lesbarkeit- heißt »disassemblieren« (sprich: »disäßemblie- 
ren«). 

Der entsprechende Befehl heißt D (Abkürzung für »disas- 
semble«). Die Syntax entspricht der des M-Befehls, mit 
dem Unterschied, daß statt eines Dumps ein Disassembler- 
listing des entsprechenden Bereichs ausgegeben wird. Für 
das Weglassen einzelner Parameter bei »D Anfang Ende« 
gelten die gleichen Regeln wie bei M. Die Syntax von D ist 
noch einmal in Bild 18 zusammengefaßt. 

Als Beispiel wollen wir ein Stück aus dem C128-ROM dis¬ 
assemblieren; geben Sie dazu bitte »D F4018 F4023« ein. 
Das Ergebnis sehen Sie auf Ihrem Bildschirm und in 
Bild 19. 

Eine Disassemblerzeile hat das Format ».Adresse Hex- 
Bytes Mnemonic Operand«. Der Punkt ist eine andere 
Schreibweise für den Assemblier-Befehl und ermöglicht 
Änderungen (am Beispiel jedoch nicht, da wir Teile des 
ROMs disassembliert haben), worauf wir erst im nächsten 
Abschnitt näher eingehen wollen. 

Die Adresse gibt wie bei M an, ab welcher Basisadresse 
disassembliert wurde. Die Hex-Bytes (minimal eines, maxi¬ 
mal drei) sind das Hex-Dump der Bytes, die der Befehl um¬ 
faßt. Mnemonic und Operand sind dann schließlich die ei¬ 
gentliche Leistung des D-Befehls, denn die Hex-Bytes er¬ 
scheinen nun in mnemonischer Schreibweise. 

Die Fragezeichen in den Zeilen F4021/F4022 zeigen an, 
daß die Disassemblierroutine auf einen Opcode traf, der 
keinen Befehl vertritt. Es handelt sich in solchen Fällen ent¬ 
weder um reine Daten, die beispielsweise als ASCII-Codes 
abgelegt sind, oder - wie in diesem Fall - um reine Füll- 
Bytes. 

Wie man auch aus F4023 ersehen kann, wird das Disas¬ 
semblieren unmittelbar nach einem solchen Undefinierten 
Byte fortgesetzt. 

Meist handelt es sich bei Undefinierten Bytes um Daten 
oder Füll-Bytes, es gibt jedoch auch eine dritte Möglichkeit, 
die nicht so bekannt ist: Undefinierte Bytes können auch 
Undefinierte Opcodes sein! 

Zusätzlich zu den Standard-6502-Befehlen kennt fast je¬ 
der 65xx-Prozessor zusätzliche Opcodes, die beim Bau 
des Prozessors unbeabsichtigt waren, aber aufgrund der 
Prozessor-Struktur verarbeitet werden und meistens auch 
ihre Wirkung haben. Diese Befehle sind zwar - da sie ja un¬ 
beabsichtigt sind - von Prozessor zu Prozessor und von 
Version zu Version verschieden, aber werden gerne ver¬ 
wendet, um ein Programm unlesbar zu gestalten. Einige 

Der Assembliei^Befehl: A 


dieser Opcodes führen zum Absturz des Computers, ande¬ 
re entsprechen zwei Befehlen (zum Beispiel INC und SBC), 
wieder andere entsprechen dem NOP-Befehl und einige 
haben so komplizierte Wirkungen, daß sie bei der Program¬ 
mierung wirklich keinen Nutzen bringen. 

Während der Disassemblier-Befehl standardmäßig zu ei¬ 
nem Monitor gehört, ist der Assembiier-Befehlerstim Laufe 
der Zeit zum Standard geworden. Der C128-Monitor kennt 
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einen solchen; er heißt A als Abkürzung für »assemble« (as- 
semblieren). Die Syntax ist (siehe auch Kurzübersicht in 
Bild 20) »A Anfangsadresse erster Befehl«. 

Beispiel: Geben Sie »A 01D00 LDA #$0D« ein. Die Syn¬ 
tax der Mnemonics soll hier nicht weiter beschrieben wer¬ 
den, sie ist die gleiche wie die, die der D-Befehl bei der Aus¬ 
gabe verwendet. 

Wenn eine Zeile nicht korrekt ist, erscheint ein Fragezei¬ 
chen. Andernfalls - also wenn die Zeile angenommen wur¬ 
de - erscheint in der nächsten Zeile »A nächste Adresse« 
und dahinter ein blinkender Cursor als Aufforderung zur 
Eingabe der nächsten Zeile. Nach unserem Beispiel »A 
01D00 LDA #$0D« würde also »A 01D02« erscheinen. Ge¬ 
ben Sie dann »JSR $FFD2« ein und drücken Sie 
< RETURN >. Wieder wird die Zeile angenommen. 

Falls Sie aus dem Assemblieren aussteigen wollen, 
drücken Sie einfach < RETURN >. Nach »JSR $FFD2« se¬ 
hen Sie dann »A 01D05«. Geben Sie nun »LDA #$21« ein 
und drücken Sie RETURN, bei der nächsten Zeile geben 
Sie bitte »JMP $FFD2« ein. Die darauf folgende Zeile wollen 
wir nicht mehr eingeben. Drücken Sie also einfach ohne 
Befehlseingabe auf < RETURN >. 

Nun können wir unser kleines Maschinenprogramm 
über »D 01D00« disassemblieren. Wenn wir den Monitor 
über X verlassen und »BANK15:SYS7424« starten, gibt das 
Programm zuerst einen Zeilenvorschub (Carriage Return 
oder CR) und dann ein Ausrufezeichen aus. 

Falls Sie nicht wollen, daß CR ausgegeben wird (erste 
Zeile: LDA #$0D, $0D = #13 = ASCII-Code von CR), 
müssen Sie unser Programm nur mit »D 1D00« disassem¬ 
blieren, und in der ersten Zeile den Operand des LDA-Be- 
fehls ($0D) mit einem neuen Wert (zum Beispiel $93 für 
»Bildschirm löschen«) überschreiben. 

Durch Drücken von < RETURN > wird eine solche Än¬ 
derung übernommen. Am Anfang der nächsten Zeile steht 
dann wieder der A-Befehl, da der Punkt».« am Beginn einer 
Disassemblerzeile identisch mit dem A-Befehl ist und somit 
eine Assemblierung bewirkt. 

An dieser Stelle muß noch ein Hinweis für Einsteiger ge¬ 
geben werden: Wenn der Monitor eine Zeile nicht annimmt, 
obwohl Sie sicher sind, daß die Zeile syntaktisch korrekt ist, 
gibt es mehrere mögliche Ursachen: 

- Sie verwenden eine unerlaubte Adressierungsart: 

JSR ($2000) gibt es beim 8502 ebensowenig wie 

LDA ($2000),Y (obwohl »LDA ($20),Y« korrekt ist) 


Befehl: 

A 

Syntax: 

A Anfangsadresse Befehl 

Wirkung: 

assembliert den Befehl ab Anfangs¬ 
adresse dirket in den Speicher. 

englisches Wort: Assemble (assemblieren) 


Bild 20. Kurzübersicht zum Befehl A 


- Sie überschreiten bei Branch-Befehlen (BNE, BEQ, 
BCS und so weiter) die Sprungweite (128 Byte vor und 
zurück, nicht mehr): 

01D00 BNE F000 ist nicht möglich 
01D00 BNE 1D04 dagegen schon. 

Auf jeden Fall ist die Wahrscheinlichkeit, daß am Compu¬ 
ter etwas defekt ist, gering, wenn beim A-Befehl etwas nicht 
funktioniert. Sehen Sie in einem solchen Fall lieber in Ihrer 
Maschinensprache-Literatur nach. 

Sie sehen, das Assemblieren mit dem A-Befehl des TED- 
MON ist kein Zuckerschlecken, sondern mühsam und 
fehleranfällig. Vor allem, wenn man an Programmen, die 
mit diesem »line by Iine«-Assembler erstellt wurden, Ände¬ 
rungen vornehmen will, stellt sich bald nach den ersten 
Fehlern der »Programmierfrust« ein. 


Während das Schreiben von Kleinst-Routinen mit dem 
TEDMON noch gerade möglich ist, wird das Programmie¬ 
ren längerer Routinen so mühselig, daß man (fast) keine 
Erfolgsaussichten hat. Daher gibt es noch eine höhere Stu¬ 
fe des Assemblerprogrammierens, nämlich die sogenann¬ 
ten Makroassembler. Ein Makroassembler ist ein Pro¬ 
gramm, das die Eingabe von Maschinenprogrammen wie 
in einer Textverarbeitung ermöglicht, wobei die Eingaben 
nicht sofort in den Speicher übernommen werden. Außer¬ 
dem kann man einzelne Stellen im Programm mit einem 
Label markieren, kleinere Befehlsfolgen als Makros defi¬ 
nieren und vieles mehr. 

Mit einem Makroassembler kann man effizient in Assem¬ 
bler programmieren, und auch längere Routinen sind kein 
Problem mehr. Leider sind solche komfortablen Assembler 
oft recht teuer (mehrere hundert Mark!). Eine erfreuliche 
Ausnahme ist da der TOP-ASS plus von Markt&Technik, 
der für nur 59 Mark erstaunliche Leistungsmerkmale bietet 
und es mit jedem 300-Mark-Assembler aufnehmen kann. 

Der Sprung-Befehl des Monitors: G 


Unser Beispielprogramm (Ausgabe von CR und »!«) aus 
dem letzten Abschnitt haben wir, um es zu testen, über 
»BANK Bankeinstellung: SYS Startadresse« gestartet. Da 
man mit dem Monitor des öfteren in die Lage kommt, daß 
man ein Maschinenprogramm starten will, gibt es auch 
hierfür einen Befehl. 


Befehl: 

G 

Syntax: 

G (Startadresse) 

Wirkung: 

springt unter Berücksichtigung der 

tun«»»' 

Register zur angegebenen Start¬ 
adresse. Wird diese weggelassen, 


so zum bei PC angezeigten Wert. 

englisches Wort: Go (gehe) 


Bild 21. Kurzübersicht zum Befehl G 


Er heißt G (von englisch »to go« = deutsch »gehe«) und 
hat zwei mögliche Syntaxformen. Die erste Möglichkeit ist 
»G Adresse« (zum Beispiel »G F1D00« bei unserem Bei¬ 
spielprogramm aus dem letzten Abschnitt). Die zweite er¬ 
gibt sich daraus, daß man nur »G« (also ohne Adresse oder 
sonstige Parameter) angibt. Dann wird die Adresse, die als 
aktueller PC gilt (siehe Abschnitt »TEDMON und Maschi¬ 
nensprache«), als G-Adresse eingesetzt. 

In jedem Fall bewirkt der G-Befehl einen Sprung zur je¬ 
weiligen Zieladresse. Vorher werden noch die Register mit 
den Werten, die Sie beim Start des Monitors hatten, gela¬ 
den. Eventuelle Änderungen der Registerinhalte machen 
sich erst jetzt bemerkbar! 

Daß die Syntax des G-Befehls eine der einfachsten des 
Monitors ist, können Sie Bild 21 entnehmen. 

Ein Hinweis: Wenn am Ende des angesprungenen Ma¬ 
schinenprogramms ein RTS-Befehl steht, so bewirkt dieser 
dann keinen Rücksprung in den Monitor; ein solcher wird 

Das Anzeigen der Registerinhalte: R 


aber dafür durch den BRK-Befehl bewirkt. Wenn Sie unser 
Beispielprogramm aus dem letzten Abschnitt mittels »G 
F1D00« starten, so arbeitet es zwar korrekt; da es aber 
durch einen RTS-Befehl am Ende der Unterroutine $FFD2 
beendet wird, erscheint ein »7SYNTAX ERROR«. Dieser ist 
jedoch nicht weiter tragisch, da er ja nicht auf einen Pro¬ 
grammfehler hinweist. 
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Eine recht nützliche Anwendung des G-Befehls ist »G 
FFF3D«. Mit diesem Befehl kann man jederzeit aus dem 
Monitor heraus einen Reset hervorrufen. 

Wie wir schon erwähnt haben, erfolgt beim Start des Mo¬ 
nitors die automatische Registeranzeige. Da man die Regi¬ 
ster jedoch öfters sehen will - auch längere Zeit nach dem 


Befehl: R 

Syntax: R 

(keine Parameter) 

Wirkung: zeigt Register und Registerinhalte an. 

englisches Wort: Register display (Registeranzeige) 

Bild 22. Kurzübersicht zum Befehl R 

Start des Monitors ist ein Befehl nötig, der jederzeit eine 
Registeranzeige ermöglicht. Dieser heißt einfach R (Regi¬ 
ster display« = Registeranzeige, siehe auch Bild 22). R ar¬ 
beitet wie die schon beschriebene Registeranzeige; ge¬ 
nauer gesagt, beim Monitorstart wird die Routine zum R- 
Befehl aufgerufen. 

Eine nähere Beschreibung erübrigt sich also. Auch hier 
gilt, daß man die Register ändern kann. 

Die angezeigten oder geänderten Registerinhalte wer¬ 
den beim G-Befehi, den wir im letzten Abschnitt behandelt 
haben, endgültig in die tatsächlichen Prozessorregister 
übernommen. 

Um etwas Übung mit den Befehlen R (und »;« zum Än¬ 
dern der Registerinhalte) und G zu bekommen, wollen wir 
eine kleine Anwendung durchgehen. 

Wenn man die Einsprungadresse $FFD2 in Bank $F 
(Bank 15) anspringt - wie es unser Beispiel beim A-Befehl 
getan hat - wird das Zeichen ausgegeben, dessen ASCII- 
Code im Akkumulator steht. 

Wir wollen nun den CHR$-Code $07 (= #7, entspricht 
dem akustischen Klingelzeichen) ausgeben lassen. Dazu 
gehen wir folgendermaßen vor: 

- R eingeben. Nun erscheinen die Registerinhalte. 

- Wert unter »AC« auf 07 ändern. 

- »G FFFD2« eingeben. Das Zeichen wird nun ausgege¬ 
ben. Da die ROM-Routine ab $FFD2 durch einen RTS- 
Befehl beendet wird, erscheint - wie Sie im letzten Ab¬ 
schnitt über den G-Befehl erfahren haben - ein SYNTAX 
ERROR. Dieser ist jedoch zu ignorieren. 

Probieren Sie doch einmal verschiedene Zeichen durch 

(zum Beispiel die Steuerzeichen für die Cursor-Farbe oder 
ähnliche). 

Durch dieses Arbeiten mit den Registeranzeigen und 
Sprungbefehlen ist es möglich, auch eigene Routinen auf 
Funktionsweise bei bestimmten Registerinhalten zu über¬ 
prüfen. 

Mittlerweile sind alle Befehle des Monitors besprochen, 
und Sie werden zugeben, daß das Lernen dieser Befehle 
wirklich keine Überforderung war (denken Sie einmal an Ih¬ 
re Basic-oder Maschinensprache-Anfängerzeiten zurück). 

Von nun an werden wir die Anwendung des gesamten 
Monitors, also nicht nur einzelner Befehle, besprechen. Da¬ 
bei soll uns zuerst die Anwendung auf Maschinenprogram¬ 
me interessieren, danach werden wir mit der Basic-Anwen- 
dung fortfahren. 

Die Kooperation TEDMON/Maschinensprache soll vor 
allem deswegen zuerst behandelt werden, weil die letzten 
Abschnitte gerade erst die Befehle zur Anwendung auf 
Maschinenprogramme erläutert haben. Als Nur-Basic-Pro- 
grammierer, den an Maschinenprogrammen höchstens die 
ASCII-Tabellen zum Ändern und Einträgen eigener Mel¬ 
dungen interessieren, müssen Sie sich ein wenig gedul¬ 
den, aber die Anwendungen, die dann folgen, werden Sie 
mit Sicherheit entschädigen. 


Um Ihnen die Arbeit mit den gelernten Befehlen zu er¬ 
leichtern, finden Sie in Form von Bild 23 eine Übersicht (Re¬ 
ferenz) aller TEDMON-Befehle. Damit diese möglichst we¬ 
nig Platz beansprucht (was das Finden bestimmter Infor¬ 
mationen erleichtert), wurde eine möglichst knappe - aber 
präzise - Form der Syntax-Angabe gewählt. 

Der erste Buchstabe einer Befehlszeile ist in jedem Fall 
das Kommando (zum Beispiel M). Die Parameter werden 
mit Buchstaben angegeben. Vier Buchstaben (zum Bei¬ 
spiel XXXX) bezeichnen eine vierstellige, zwei Buchstaben 
eine zweistellige Hexadezimalzahl. Natürlich kann man 
beim TEDMON erfreulicherweise die Parameter auch in 
anderen Zahlensystemen angeben. Mit Hilfe der Anzahl 
der Hex-Stellen ist aber eindeutig festgelegt, in welchem 
Bereich der Parameter liegen muß: 
zwei Stellen = $00 bis $FF = #0 bis #255 = 

°/o00000000 bis %11111111 
vier Stellen = $0000 bis $FFFF = #0 bis #65535 
Das B vör den Zahlen (zum Beispiel BXXXX) zeigt an, 
daß man im Falle der hexadezimalen Zahlendarstellung zu¬ 
sätzlich dfe Speicherbank angeben kann. 

Eing<ak/ammerte Parameter können stehen, müssen 
aber reicht. In: Anführungszeichen stehende Parameter (nur 
bei L, S, V) bind Strings und müssen auch beim Monitor in 
Anführungszeichen stehen. 

Befehle suchen mit H 


Da jeder Maschinensprachebefehl im Speicher als Opcode 
(Opcode = Operation CODE = Verarbeitungscode) abge¬ 
legt wird, kann man nach bestimmten Befehlen suchen, in¬ 
dem man den Opcode suchen läßt. 

Wenn man aber einen Assembler zur Verfügung hat, der 
‘im Eauor eine Suchfunktion bietet, so sollte man lieber 
nach der mnemonischen Schreibweise im Quelltext su¬ 
chen (sofern man den Quelltext hat und es sich nicht um ein 
fremdes Programm handelt), da das Suchen nach Opco- 
des einen großen Nachteil hat: Ein Befehl hat so viele unter¬ 
schiedliche Opcodes wie Adressierungsarten. 

Dieser Nachteil ist selbstverständlich belanglos, wenn 
man die Adressierungsart, die man suchen will, kennt, oder 
der Befehl nur eine einzige Adressierungsart hat (was nur 
bei impliziten Befehlen wie SEI, CLD, INX und so weiter der 
Fall ist). Das Suchen nach einem unmittelbar-adressierten 
LDA-Befehl (in mnemonischer Schreibweise) erfordert nur 


Befehl 

Kurzbeschreibung 

Syntax 

A 

Assemblieren 

A BXXXX Befehl 

C 

Vergleich 

C BXXXX BYYYY BZZZZ 

D 

Disassemblieren 

D (BXXXX) (BYYYY) 

F 

Füllen 

F BXXXX BYYYY ZZ 

G 

Programm starten 

G (BXXXX) 

H 

Suchen 

H BXXXX BYYYY ZI Z2 ... ZZ 



oder H BXXXX BYYYY "TEXT 

L 

Laden 

L("NAME")(,XX),(BYYY) 

M 

Memory Dump 

M (BXXXX) (BYYYY) 

R 

Registeranzeige 

R 

S 

Speichern 

S "NAME",XX,BYYY BZZZZ 

T 

Verschieben 

T BXXXX BYYYY BZZZZ 

V 

Verifizieren 

V " NAME * (,XX)(BYYYY) 

X 

Verlassen 

X 

> 

Ändern 

> BXXXX Y1 Y2 ... YY 

@ 

Floppy-Bedienung 

<KI.-a.>(XX)(,BEFEHL) 


Bild 23. Alphabetische Übersicht über alle Befehle des 
TEDMON 
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die Suche nach einem einzigen Opcode (nämlich $A9, dem 
Opcode für LDA unmittelbar), wogegen man bei der Suche 
nach allen LDA-Befehlen (also unabhängig von der Adres¬ 
sierungsart) nach acht Opcodes suchen muß: 

Opcode Adressierungsart mnemonische Schreibweise 
(Bsp) 

SAD absolut LDA $4567 
$A5 Zeropage LDA $45 
$A9 unmittelbar LDA #$45 
$BD absolut-x-indiziert LDA $4567,X 
$B9 absolut-y-indiziert LDA $4567,Y 
$A1 indirekt-x-indiziert LDA ($45,X) 

$B1 indirekt-y-indiziert LDA ($45),Y 
$B5 Zeropage,X-indiziert LDA $45,X 

Das heißt, daß Sie bei der Suche nach allen LDA- 
Befehlen im Bereich $4000 bis $5000 in Bank 0 folgende 
Befehle benötigen würden: 

H 4000 5000 AD sucht die absoluten LDAs, 

H 4000 5000 A5 sucht die Zeropage-adressierten, 

H 4000 5000 A9 sucht die unmittelbar-adressierten, 

H 4000 5000 BD sucht die absolut-x-indizierten, 

H 4000 5000 B9 sucht die absolut-y-indizierten, 

H 4000 5000 AI sucht die indirekt-x-indizierten, 

H 4000 5000 Bl sucht die indirekt-y-indizierten, 

H 4000 5000 B5 sucht die Zeropage-x-indizierten LDAs. 

Sie werden - falls im angegebenen Suchbereich ein Ma¬ 
schinenprogramm und nicht zufällige Daten aufbewahrt 
sind - eine Unmenge Adressen erhalten. Es wäre aller¬ 
dings ein Trugschluß, daß an jeder gefundenen Adresse 
wirklich ein solcher Befehl steht (»stehen« muß zwar einer, 
wenn auch der Opcode vorhanden ist, aber die Frage ist, 
ob dieser innerhalb eines Maschinenprogramms oder in¬ 
nerhalb von Daten steht und womöglich nie durchlaufen 
wird). 

Es empfiehlt sich daher, jede angegebene Adresse ge¬ 
nauer zu prüfen; da es sich unter Umständen um recht viele 
handelt, ist die Ausgabe der gefundenen Adressen auf den 
Drucker (siehe Abschnitt über Ein-/Ausgabe) wirklich emp¬ 
fehlenswert. 

Zur Prüfung einer bestimmten Adresse, ob es sich wirk¬ 
lich um einen Befehl handelt, sollte man einfach »D Adres¬ 
se« eingeben. Bei der angegebenen Adresse steht dann 
der aufgespürte Befehl; da wir nach den Opcodes gesucht 
haben, muß dies ja auch der Fall sein. 

Vielseitige Anwendungen 
für den H-Befehl 


Um nun festzustellen, ob dieser Befehl inmitten eines Teils 
eines Maschinenprogramms steht, sind die dem Befehl un¬ 
mittelbar folgenden Anweisungen zu überprüfen. Handelt 
es sich dabei hauptsächlich um keine Befehle (dann er¬ 
scheinen ja an den betreffenden Adressen Fragezeichen 
im Disassembler-Listing), so gibt es nur zwei Möglichkei¬ 
ten: 

1. Es wurden bei der Programmierung Undefinierte Opco¬ 
des verwendet; diese Möglichkeit ist allerdings die sel¬ 
tenste und nur bei kopiergeschützten Programmen 
denkbar. 

2. Es handelt sich schlicht um keinen Befehl, sondern nur 
um Daten. Ein Unterfall dieser Möglichkeit ist, daß der 
Befehlscode im Operand eines anderen Befehls vorhan¬ 
den ist (im Speicherformat von LDA #$2C - $A9 $2C - 
ist zum Beispiel mit $2C der Opcode des BIT-absolut- 
Befehls vorhanden). 

Der zweite Fall ist - wie gesagt - der eindeutig häufigere. 
In jedem dieser Fälle kann man mit 95prozentiger Wahr¬ 
scheinlichkeit davon ausgehen, daß es sich um keinen ech¬ 


ten Befehl handelt. Falls natürlich ordentliche Befehle er¬ 
scheinen, so kann man gar mit 99prozentiger Sicherheit 
annehmen, daß es sich um einen »echten« Befehl handelt. 

In diesem Zusammenhang möchten wir Ihnen ein inter¬ 
essantes Verfahren zur Suche nach einem Bereich, in dem 
Maschinenprogramme liegen, vorstellen. Wenn man zum 
Beispiel ein fremdes Programm hat, in dem viele Tabellen 
(geordnete Daten) untergebracht sind, möchte man viel¬ 
leicht wissen, wo denn eigentlich das Programm liegt. 

Natürlich kann man das ganze Programm disassemblie- 
ren lassen und dann einfach suchen, aber zur Grobein¬ 
grenzung des Bereichs ist es ungleich komfortabler, den H- 
Befehl einzusetzen. 

In »normalen« Maschinenprogrammen ist so ziemlich 
der häufigste Opcode, der nicht als ASCII-oder Bildschirm- 
Code eine sinnvolle Bedeutung hat wie etwa $20 (Opcode 
für JSR, ASCI I-Code für Space, Bildschirmcode für Space), 
der Opcode für »LDA #«, also $A9. 

Mit »H Anfangsadresse Endadresse A9« kann man nun 
den gesamten Bereich durchsuchen lassen. An den Stel¬ 
len, an denen das Suchbyte $A9 gedrängt auftritt, kann 
man annehmen, daß es sich um einen Bereich handelt, der 
vorwiegend aus Maschinensprachebefehlen besteht. 

Wenn man die Bedeutung einzelner Adressen in einem 
bestimmten Programm - zum Beispiel dem Betriebssystem 
bei der Erstellung eines kommentierten ROM-Listings - nä¬ 
her durchleuchten will, kann natürlich auch hier der H- 
Befehl, von dem Sie jetzt nach und nach merken, wie viel¬ 
seitig er ist (auch wenn es auf den ersten Blick gar nicht so 
aussieht), eingesetzt werden. 

Wir müssen alle Befehle suchen, die auf die Adresse zu¬ 
greifen. Bei Zeropage-Adressen geht man folgendermaßen 
vor (nehmen wir das Beispiel der Adresse $15): 

1. »H Anfangsadresse Endadresse Adresse«, 

also .um Beispiel »H F4000 F4200 15« 

Sie erhalten dann alle Adressen, an denen $15 steht. 
Wenn Sie jedoch »D gefundene Adresse« eingeben, wer¬ 
den Sie keinen Befehl, der auf $15 zugreift, finden. 

Die Adresse, ab der dann überhaupt ein Befehl stehen 
kann, der die Zeropage-Adresse als Operand hat, ist die ge¬ 
fundene Adresse minus 1. 

2. Test der gefundenen Adresse 

Das Testen, ob die gefundenen Werte wirklich Rück¬ 
schlüsse auf einen Befehl, der die gesuchte Zeropage- 
Adresse bearbeitet, zulassen, geht relativ einfach. 

Sie müssen nur »D Adresse-1« eingeben, und schon se¬ 
hen Sie den entsprechenden Befehl disassembliert. Wenn 
es sich um einen Befehl, der auf die gesuchte Adresse zu¬ 
greift, handelt, so sehen Sie ein Disassembler-Listing von 
diesem. Andernfalls steht ab der gefundenen Adresse mi¬ 
nus 1 kein Befehl (im Disassembler-Listing sehen Sie Fra¬ 
gezeichen) oder ein Branch-Befehl (zum Beispiel ein BEQ, 
BCS- oder anderer Befehl, der zwar als Parameter die 
Zeropage-Adresse hat, dieser Parameter aber die Sprung¬ 
weite anstelle einer Adreßangabe ist) oder ein Befehl, der 
auf eine Adresse zugreift, die als LB den gleichen Wert wie 
die Zeropage-Adresse hat, aber ein HB ungleich 0. 

Ein Beispiel: Wenn Sie ab den gefundenen Adressen-1 
disassemblieren und nach Zugriffen auf $15 suchen, sind 
beispielsweise folgende Befehle richtig: 

LDA $15 

LDA $0015 (ist (fast) das gleiche wie LDA $15) 

STA $15 
JMP $0015 
BIT $15 
ADC $15 

Die folgenden Befehle greifen nicht auf $15 zu: 

LDA $4015 (HB ungleich 0) 

LDA #$15 (unmittelbar-adressiert) 
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BNE xxxx ($15 war nur eine Angabe der Sprungweite) 
BIT $3015 (HB ungleich 0) 

CLD (CLD hat keinen Parameter, $15 wäre dann ein Be¬ 
fehlscode) 

Mit derzeit bekommt man schon Gespür dafür, ob es sich 
um einen Zugriff auf eine Adresse handelt oder nicht. 

3. Prüfung, ob der Befehl durchlaufen wird 

Nun bleibt noch abzuwarten, ob der Befehl jemals abge¬ 
arbeitet wird oder nicht. Wie man dies feststellt, haben wir 
schon bei der Suche nach den Opcodes der Befehle ge¬ 
klärt. 

Bei der Arbeit an Programmen, die illegale Opcodes in 
sich haben, ist natürlich jegliche Entscheidung erschwert. 

Als nächster Punkt soll die Suche nach Befehlen, die auf 
beliebige Zwei-Byte-Adressen ($0100 bis $FFFF) zugrei¬ 
fen, besprochen werden. 

Suchen nach Zugriffen auf 
beliebige Adressen 


Da wir schon wissen, wie man Zugriffe auf Zeropage- 
Adressen aufspürt, soll uns nun interessieren, wie man sol¬ 
che auf Adressen, die mit zwei Byte (LB und HB) darstellbar 
sind, sucht. 

Außer des zusätzlichen (zu suchenden) Bytes der Adreß- 
angabe (statt ein Byte nun zwei) ändert sich nichts Grund¬ 
legendes. 

Während man bei der hexadezimalen Schreibweise zu¬ 
erst das HB und dann erst das LB nennt ($4567; $45 = HB, 
$67 = LB), legt der Computer diese Daten im Speicher ge¬ 
nau umgekehrt ab (diese Darstellung ist für die CPU günsti¬ 
ger, der Grund dafür würde uns aber viel zu weit vom The¬ 
ma abbringen und soll daher vernachlässigt werden): 
JMP $4567 wird abgelegt als $4C $67 $45 

Nun haben wir unser theoretisches Wissen vervollstän¬ 
digt und müssen es nur noch in die Praxis umsetzen. Dies 
ist das Verfahren zur Suche der Befehle, die auf eine mit 
zwei Byte (Low-Byte=LB, High-Byte=HB) dargestellte 
Adresse zugreifen: 

1. »H Anfangsadresse Endadresse LB HB«, 

im Beispiel bei der Suche nach Zugriffen auf $4567: 

»H Anfangsadresse Endadresse 67 45« 

2. Test der gefundenen Adresse 

Ob ab der gefundenen Adresse minus 1 (1 abziehen, da 
Adresse des LB im Speicher genannt wird, wir aber die 
Adresse des ein Byte vorher im Speicher stehenden Be¬ 
fehlscodes benötigen) ein »richtiger« Befehl steht, wird wie 
gehabt überprüft (»D Adresse-1« und so weiter, siehe »Vor¬ 
gehensweise bei Zeropage-Adressen«). 

3. Prüfung, ob Befehl durchlaufen wird 

Auch das haben wir bereits geklärt. 

An dieser Stelle ist ein wichtiger Hinweis zu machen, der 
vor allem den Einsteigern unter Ihnen zugedacht ist. 

Wenn Sie die Verzweigungs(englisch »branch«)-Befehle, 
die eine bestimmte Adresse anspringen, suchen, so kön¬ 
nen Sie mit den geschilderten Verfahren die entsprechen¬ 
den Branches nicht ausfindig machen. Der Grund ist, daß 
ein Bxx- (BEO, BCS, ...)-Befehl folgendermaßen im Spei¬ 
cher abgelegt wird: 

Befehlscode Entfernung zum Sprungziel 

Die Entfernung zum Sprungziel wird durch eine vorzei¬ 
chenbehaftete Binärzahl dargestellt. 

Sie können aus dem obigen Schema ersehen, daß das 
Sprungziel nicht direkt (wie etwa bei JMP, JSR, LDA, STA, 
INC,...) im Speicher abgelegt ist (sondern nur die relative 
Sprungweite dahin) und somit ein H-Befehl nach LB und 
HB erfolglos bleibt. 


Wenn man nun die Verzweigungsbefehle über H suchen 
wollte, so müßte man für jede untersuchte Adresse die 
Sprungweite neu berechnen, und dies ist wirklich zu müh¬ 
sam. Es empfiehlt sich daher, den in Frage kommenden Be¬ 
reich zu disassemblieren und durch eigene Suche die ent¬ 
sprechenden Befehle ausfindig zu machen. Dies ist aller¬ 
dings aufgrund einer wichtigen Tatsache nicht so schlimm: 

Verzweigungsbefehle haben eine stark begrenzte 
Sprungweite! 

Die Sprungweite reicht nur 128 Byte nach hinten und 127 
nach vorn, so daß sich ein gerade 256 Byte großer Bereich 
ergibt, den man mit »D« betrachten muß. 

Nun soll es für uns kein Problem mehr sein, auch nach 
ganzen Befehlen (zum Beispiel LDA $1245 oder JSR 
$FFD2) suchen zu lassen. Dazu brauchen wir nur zwei 
Schritte: 

1. Suche über H 

2. Test, ob Befehl durchlaufen wird 

Wie man den zweiten Punkt durcharbeitet, haben wir be¬ 
reits besprochen. Nun interessiert uns naturgemäß der er¬ 
ste Punkt, aber auch dieser ist nicht völlig neu und wirklich 
keine große Schwierigkeit. 

Für diesen Zweck wollen wir im folgenden den bequem¬ 
sten Weg wählen, denn die Umrechnung der mnemoni- 
schen Schreibweise in den Code ist zwar nötig (weil der H- 
Befehl nur nach Zahlen und nicht nach anderen Daten su¬ 
chen kann), aber der A-Befehl kann uns dabei in hervorra¬ 
gender Weise unterstützen. 

Wir müssen nämlich nur »A 400 umzurechnender Be¬ 
fehl« eingeben und sofort den Assemblier-Modus verlas¬ 
sen (über < RETURN >). In der Zeile, in der wir den Befehl 
assembliert haben, sehen wir dann nach der Adresse (aber 
vor der mnemonischen Schreibweise) die hexadezimale 
Darstellung des Speicherformats. 

Wir:laben dazu einfach in den 40-Zeichen-Bildschirm- 
speicher (ab $400) assembliert; dies ist bei Verwendung 
des 80-Zeichen-Bildschirms unproblematisch (sofern nicht 
bei $400 ein Maschinenprogramm liegt), bei der Arbeit mit 
40 Zeichen pro Zeile sollte man folgendermaßen Vorgehen, 
damit wirklich nichts schiefgehen kann: 

- Bildschirm mit <SHIFT CLR/HOME> löschen 

- einmal < RETURN > drücken 

Beim Assemblieren wird der erzeugte Code des Befehls 
(ein bis drei Byte) ab $400 abgelegt; deshalb erscheinen 
links oben am Bildschirm Zeichen. Damit diese Zeichen 
nicht ihrerseits durch die Neu-Anzeige nach dem Assem¬ 
blieren gelöscht werden, ist es günstiger, die Eingabe nicht 
in der obersten Bildschirmzeile zu machen. 

Suchen nach kompletten Befehlen 


Nun wollen wir als Beispiel nach dem Befehl »JSR 
$FFD2« im Bereich $4000 bis $4500 in Bank $F (#15) su¬ 
chen. 

Der erste Schritt ist die Umwandlung des Befehls ins 
Speicherformat. Dazu geben wir folgende Zeile ein: 

A 400 JSR $FFD2 

Diese Eingabezeile wird sogleich vom Monitor über¬ 
schrieben durch 
A 00400 20 D2 FF JSR $FFD2 
A 00403 (dahinter Cursor als Eingabe-Aufforderung) 

Nun drücken wir < RETURN >, um den Assemblier- 
Modus zu verlassen. Wir wissen nun, daß der Programm¬ 
code zu JSR $FFD2 folgendermaßen 20 D2 FF lautet. 

Nach diesen Codes können wir nun im Bereich $4000 bis 
$4500, den wir ja durchforsten wollen, suchen lassen: 

H F4000 F4500 20 D2 FF 

Um die gefundenen Befehle zu sehen (zum Beispiel um 
sie zu testen), brauchen wir jetzt keine Zahl subtrahieren, 
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da die angegebenen Adressen schon stimmen; da wir auch 
den Befehlscode ($20 für JSR) suchen lassen, wird immer 
die Adresse angegeben, ab der $20 (der Befehlscode) 
steht. 

Dieser Abschnitt hat Ihnen hoffentlich gezeigt, wieviel 
man aus dem H-Befehl machen kann, wenn man nur das 
nötige Know-how hat - und das wird Ihnen hier nach und 
nach vermittelt. 

Analyse eines Maschinenprogramms 
mit TEDMON 


Maschinensprache lernt man auch dadurch, daß man 
fremde Maschinenprogramme analysiert und sich so be¬ 
stimmte Programmstrukturen aneignet. 

Hierbei ist der Monitor eine unentbehrliche Hilfe, wenn 
es darum geht, ein Programm zu durchleuchten. Dies kann 
man selbstredend nicht nur zu Lehrzwecken tun, sondern 
auch, um Änderungen an einem Programm durchzuführen 
oder es gar zu knacken (wenn man sich ganz gut auskennt). 
Auch die großen »Knacker« - die »Produzenten« unzähliger 
Raubkopien - arbeiten mit Monitoren! 

Wir möchten Ihnen hier ein schrittweises Vorgehen, das 
Sie an einem Beispielprogramm Ihrer Wahl (es sollte nicht 
allzu lang sein) nachvollziehen können, vorstellen. Erfor¬ 
derlich ist dazu zwar ein Drucker, aber für ernsthafte An¬ 
wendungen wie Maschinensprache ist ein solcher ohnehin 
erforderlich. 

Einige Schritte unseres Verfahrens haben wir schon an¬ 
gesprochen oder gar ausführlich behandelt, so daß das 
Verfahren wirklich von jedem Maschinenprogrammierer, 
der dies liest, angewendet werden kann. 

Schritt 1: Bestimmung, wo Befehle und wo Tabellen stehen 
Als erstes sollte man sich vom Maschinenprogramm eine 
genaue Liste zusammenstellen, wo Maschinenroutinen 
stehen (also ausführbare Befehle, die auch durchlaufen 
werden) und wo nur Daten (zum Beispiel ASCII-Tabellen für 
Textausgabe) aufbewahrt sind. 

Eine solche Liste würde für den ROM-Bereich $4000 bis 
$4297 (natürlich in Bank 15 = $F, da es sich um ROM han¬ 
delt) etwa folgendermaßen aussehen: 

4000 bis 401F: Programmcode (Befehle) 

4020 bis 4022: Undefinierte Bytes (»Abfall«) 

4023 bis 41BA: Programmcode 

41BB bis 4250: ASCII-Tabelle (Einschaltmeldung) 

4251 bis 4266: Programmcode 
4267 bis 4278: numerische Tabelle 
4279 bis 4297: Programmcode 
Wenn wir nun das Programm ausgeben wollen, wird der 
Programmcode disassembliert (mittels D), während die Da¬ 
ten mittels M gedumpt werden müssen (ein Disassembler- 
Listing würde kein sinnvolles Ergebnis bringen). 

Bei Programmcode könnte man übrigens noch prüfen, 
ob es sich um eine Unterroutine handelt; Unterroutinen er¬ 
kennt man daran, daß ein RTS-Befehi am Ende steht. Falls 
ja, so sollte man hinter »Programmcode« in der Liste noch 
den Vermerk »UP« (Unterprogramm) anbringen, denn dies 
kann hinterher die Arbeit stark erleichtern. 

In unserem Beispiel - einem Teil des C128-ROMs - könn¬ 
te man diesen Vermerk zum Beispiel bei den Adressen 
4251 bis 4266 oder 4279 bis 4297 anbringen. 

Mit diesem ersten Schritt, der durchaus zeitaufwendig 
sein kann, haben wir schon einen großen Teil geleistet. 
Schritt 2: Ausgabe des Listings auf dem Drucker 
Dieser zweite Schritt ist keine Herausforderung mehr, 
wenn man den ersten Schritt sorgfältig erledigt hat. im Bei¬ 
spiel würden wir den ROM-Ausschnitt folgendermaßen 
ausgeben lassen: 


OPEN4,4:CMD4:MONITOR (Druckerausgabe) 

D F4000 F401F (Programmcode disassemblieren) 

M F4020 F4022 (Daten dumpen) 

D F4023 F41BA (Programmcode disassemblieren) 

M F41BB F4250 (Daten dumpen) 

D F4251 F4266 (Programmcode disassemblieren) 

M F4267 F4278 (Daten dumpen) 

D F4279 F4297 (Programmcode disassemblieren) 

X (Monitor verlassen) 

PRINT #4:CLOSE4 (Ein-/Ausgabe initialisieren) 

Natürlich kann man die Ausgabe auf den Bildschirm um¬ 
leiten, aber dies ist nicht sinnvoll, da der Bildschirm nur we¬ 
nige Zeilen Listing faßt. 

Außerdem ist ein Listing auf dem Papier viel leichter zu 
bearbeiten, da die Daten nicht mit dem Ausschalten des 
Computers verloren sind und man nicht dauernd auf den 
Monitor oder Fernseher sehen muß. 

Schritt 3: Erste Vermerke im Listing anbringen 

Wenn man das Listing (jetzt ist es ja auf dem Druckerpa¬ 
pier) übersichtlicher machen will, so sollte man vermerken, 
wo eine Routine endet. Dies ist ganz einfach aus den Ma¬ 
schinenbefehlen ersichtlich; nach einem JMP wird das Pro¬ 
gramm an einer ganz anderen Stelle fortgesetzt, nach ei¬ 
nem BRK abgebrochen, nach einem RTS zum aufrufenden 
Programm zurückgesprungen oder nach einem RTI die 
Interrupt-Routine beendet. 

Nach folgenden Befehlen sollte man also mit Lineal und 
Kugelschreiber eine Linie als Trennungsmarke ziehen: 
JMP, RTS, BRK, RTI 

Unter JSR gehört natürlich keine Linie, da das Programm 
durch JSR in der Regel nur temporär an anderer Stelle fort¬ 
gesetzt wird. 

Es mag vielleicht eine stumpfsinnige Arbeit sein, aber es 
lohnt sic h wirklich, wenn man auf einen Blick sieht, wo ein 
Teil des Programms endet! 

Nach allen diesen Schritten haben wir schon ein beacht¬ 
liches Ergebnis vor uns: ein übersichtliches Programmli- 
sting auf Druckerpapier, das nur noch mit Kommentaren 
versehen werden muß - dieses Kommentieren ist zwar 
nicht ganz so einfach, aber mit ein wenig Systematik geht 
es schon viel leichter! 

Schritt 4: Hervorhebung von Verzweigungen mit Pfeilen 

Eine dem letzten Schritt ähnliche Arbeitserleichterung 
ist das Verdeutlichen von Verzweigungsbefehlen (BEQ, 
BNE, BCS, BCC, BVC,..) mit Hilfe von Pfeilen. 

Ein Pfeil dürfte für einen Sprung das deutlichste Symbol 
sein, das auf einen Blick alles aussagt. 

Am besten bringen Sie den Pfeil so an, daß er links von 
der mnemonischen Darstellung des Verzweigungsbefehls 
beginnt und die Spitze auf die mnemonische Darstellung 
des Befehls, der am Sprungziel steht und im Falle einer er¬ 
füllten Verzweigungsbedingung angesprungen wird. Dann 
ist sofort ersichtlich, was ein Verzweigungsbefehl bewirkt. 

Natürlich ist diese Pfeilmarkierung nicht bei allen Befeh¬ 
len nötig und bei sehr weiten Verzweigungen auch nicht 
mehr möglich, aber viele Programmierer haben sicher 
schon die Erfahrung gemacht, daß ein mit Pfeilen versehe¬ 
nes Listing sehr viel einleuchtender ist. 

Schritt 5: Aufrufe von ROM-Routinen kommentieren 

Auch den (für diese Zwecke glücklichen) Umstand, daß 
fast kein Maschinenprogramm ohne ROM-Routine aus¬ 
kommt, können wir uns bei der Analyse eines fremden Ma¬ 
schinenprogramms zunutze machen. 

Wir benötigen nur genügend Informationen über die Ein¬ 
sprungadressen und ihre Bedeutung, und wenn wir einen 
JMP- oder JSR-Befehl ins ROM finden, so können wir hin¬ 
ter diesen Befehl einfach die Bedeutung der ROM-Routine 
schreiben. Oft stehen vor dem Befehl noch andere Befehle, 
die für die Parameterübergabe an die ROM-Routine zu- 
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ständig sind, und auch diese Befehle können wir nun ent¬ 
schleiern. 

In der Regel kann man mit der Erklärung von ROM- 
Aufrufen einen großen Teil des Maschinenprogramms 
durchleuchten, so daß die restliche Analyse unverhältnis¬ 
mäßig stark erleichtert ist. 

Grundvoraussetzung für diesen fünften Schritt ist, daß 
man eine Tabelle mit ROM-Einsprüngen zur Verfügung hat, 
um dann die ROM-Routinen-Aufrufe deuten zu können. Ei¬ 
ne solche Tabelle braucht ohnehin jeder Maschinenpro¬ 
grammierer. 

Schritt 6: Zusammengehörige Programmteile kennzeich¬ 
nen 

Nun wollen wir noch feststellen, wo mehrere Befehle zu¬ 
sammen ein Modul ergeben, worunter wir Schleifen oder 
ähnliche Programmteile verstehen. 

Schleifen sind auch an den schon in Schritt vier ange¬ 
brachten Verzweigungspfeilen leicht erkennbar, und sol¬ 
che zusammengehörige Programmteile wie etwa eine 
Schleife kennzeichnet man am besten mit einer geschweif¬ 
ten (oder auch eckigen, wenn Sie wollen...) Klammer, damit 
man hinterher genau sieht, wo ein paar Befehle zusam¬ 
mengehören. 

Die geschweifte Klammer paßt am besten unmittelbar 
hinter die mnemonische Schreibweise der Befehle, vor den 
Mnemonics wurden ja in Schritt vier die Verzweigungspfei¬ 
le angebracht. 

In unserem Beispiel - einem Teil des C 128-ROMs - könn¬ 
te man zum Beispiel die Befehle $F406A bis $F4073 als 
Schleife behandeln (sehen Sie doch einmal mit »D F406A 
F4073« nach) und hinter die mnemonische Schreibweise ei¬ 
ne Klammer setzen. Wenn man dann ausgetüftelt hat, was 
die Schleife bewirkt, so schreibt man diese Erkenntnis hin¬ 
ter die Klammer. Es ist nämlich wenig sinnvoll, Grundstruk¬ 
turen wie diese Verschiebeschleife Befehl für Befehl zu 
durchleuchten; vernünftiger ist es, möglichst viele Befehle 
mit einer umfassenden Erklärung zu versehen, damit man 
sich nicht in unwesentlichen Einzelheiten wie den Befeh¬ 
len, die den Schleifenablauf steuern, verliert. 

Schritt 7: Mit G-Befehl bestimmte Einsprünge testen 

Wie man mit dem G-Befehl und der Möglichkeit des 
Register-Änderns die einzelnen Routinen eines Pro¬ 
gramms testen kann, haben wir bereits behandelt. Dies ist 
vor allem bei der Analyse von Maschinenprogrammen sehr 
nützlich. 

Die vorgestellten sieben Schritte sind der Einstieg in die 
Analyse eines Programms; nun muß man nach und nach 
auswerten und die »Forschungsergebnisse« im Listing ein¬ 
tragen; in der Regel geht dies zwar langsam, aber die Ana¬ 
lyse kostet nun einmal Zeit - viel Zeit. 

Dafür lernt man daraus unglaublich viel für die eigene 
Maschinenprogrammierung; zudem wird man bei dieser 
Analyse immer sicherer und routinierter, so daß diese bald 
zügig vonstatten geht. 

Dieser Abschnitt ist für diejenigen besonders interes¬ 
sant, die Maschinenroutinen mit dem A-Befehl des TED- 
MON erstellen. Daß diese Form der Maschinenprogram¬ 
mierung viel zu umständlich ist und die Anschaffung eines 
guten Assemblerpakets mehr als lohnend ist, braucht nicht 
weiter erwähnt zu werden. Für kleinere Routinen wird man 
aber doch manchmal den TEDMON einsetzen. 

Da man von einem Maschinenprogramm jede Zwischen¬ 
version speichert (zumindest sollte man dies tun, wenn 
man nicht die Programmierarbeit leichtfertig Gefahren aus¬ 
setzen will), möchte man auch einmal zwei Versionen ver¬ 
gleichen. Zwar kann man dies von Hand tun - die 
C128-Window-Technik mag ganz nützlich beim parallelen 
Disassemblieren sein aber bei längeren Programmen ist 
ein solches Vorgehen eine Tortur. Es empfiehlt sich also, 


den C-Befehl des TEDMON einzusetzen (zumal dieser ja 
nur darauf wartet, uns zu helfen). 

Dazu möchten wir Ihnen wieder ein in Schritte eingeteil¬ 
tes Verfahren vorstellen. 

Vergleich verschiedener Versionen 
von Maschinenprogrammen 

I. Aktuelle Version in Originalbereich laden 
Da man nach dem Vergleich an der aktuellen Version 
Weiterarbeiten will, soll diese gleich in den Originalbereich 
kommen. Am besten lädt man über BLOAD" NAME" oder 
L "NAME", Gerät im Monitor, also jedesmal ohne Angabe 
einer Ladeadresse. Dann wird nämlich das Programm auto¬ 
matisch in den Bereich, aus dem heraus es gespeichert wur¬ 
de, geladen. 

II. Vor-Version zum Vergleich in anderen Bereich laden 
Wenn der V-Befehl die Adresse, an der ein Unterschied 

auftritt, anzeigen würde (leider tut er das nicht), könnten wir 
jetzt mit V "ALTE VERSION ", Gerät, die neue mit der alten 
Version vergleichen lassen. Da dies wie gesagt nicht mög¬ 
lich ist, müssen wir die Version, mit der wir vergleichen wol¬ 
len, in einen anderen Bereich laden (über relatives Laden): 
L "ALTE VERSION", Gerät, freier Bereich. 

Als freien Bereich sollte man einen Speicherbereich neh¬ 
men, in dem die Vergleichsversion vorübergehend liegen 
kann. 

III. Vergleich mit C durchführen lassen 

Nun können wir mit Hilfe des C-Befehls vergleichen lassen: 
C Anfang.neu Ende.neu Anfang.Vergleichsversion 
Dabei ist: 

Anfang.neu: Anfang des Originalbereichs, in 

den als Schritt I die neue Version 
geladen wurde 

Ende.neu: Ende dieses Originalbereichs 

(siehe oben) 

Anfang.Vergleichsversion: Anfangsadresse des Bereichs, in 

dem die Vergleichsversion liegt. 
Das ist der freie Bereich, in den 
wir die alte Version als Schritt II 
geladen haben. 

Es werden bei Ausführung des C-Befehls dann alle die 
Adressen angezeigt, an denen sich die neue Version von der 
alten unterscheidet. Nun können Sie an der neuen Version 
weiterprogrammieren! 

Nun geht es 

an die Basic-Programme 


Ab jetzt sollen uns nur noch die Anwendungen des Moni¬ 
tors auf Basic-Programme interessieren, denn darüber fin¬ 
det man sonst nichts in der Literatur. 

Für Maschinenprogrammierer sei gesagt, daß sie die ge¬ 
gebenen Hinweise auch mitverfolgen sollten, da sie sowohl 
etwas über die Arbeitsweise ihres Computers erfahren als 
auch die Anwendungsbeispiele für Maschinenprogramme 
nutzen können: Viele Maschinenprogramme haben an ih¬ 
rem Anfang eine Basic-Zeile, in der dann der SYS-Befehl 
steht, der erst das eigentliche Maschinenprogramm startet. 

Wie man dafür noch interessante Effekte einsetzen kann, 
erfahren Sie ganz am Ende des Kurses. 

Wir werden jetzt kennenlernen, wie ein Basic-Programm 
im Speicher abgelegt ist (das ist nicht kompliziert, aber sehr 
interessant, und wenn man es begriffen hat, kann man viel 
damit anfangen) und wollen dann unser Wissen zu Manipu¬ 
lationen an Basic-Programmen einsetzen. Rund um das 
Thema »Listschutz« wird alles besprochen werden - und 
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noch ein bißchen mehr-, so daß Sie dann in der Lage sind, 

a) eigene Programme zu schützen 

b) Ihre Basic-Listings übersichtlich zu gestalten 

c) fremde Schutzvorrichtungen zu entfernen 

d) und - last but not least - den Monitor als Unterstützung 
beim Basic-Programmieren einzusetzen 

Die dazu erforderliche Theorie wollen wir, damit es etwas 
leichter geht, mit TEDMON erarbeiten. 

Unser Übungsprogramm, an dem wir von jetzt an dau¬ 
ernd üben wollen, finden Sie als Listing 7 abgedruckt - das 
Programm heißt »Versuchskaninchen«. 

Zum Eintippen des Programms ist noch folgendes zu sa¬ 
gen: 

- Schalten Sie vorher den Computer aus und wieder ein 
oder lösen Sie zumindest einen Reset aus 

- Tippen Sie das Programm Zeichen für Zeichen genauso 
ab, wie es abgedruckt ist 

- In Zeile 130 sind es genau 28 Sternchen 

Das Programm belegt im Basic-Speicher (Bank 0, da in 
Bank 0 das Programm aufbewahrt wird) die Speicherplätze 
$1C00 bis $1C6A. Als Bild 24 sehen Sie das Programm 
»Versuchskaninchen« in 3 verschiedenen Darstellungsfor¬ 
men: 

1. Memory-Dump im 80-Zeichen-Modus (16 Byte pro Zeile) 

2. Memory-Dump im 40-Zeichen-Modus (8 Byte pro Zeile) 

3. als Listing wie über LIST erreichbar 

In den folgenden Erklärungen werden wir uns immer auf 
Punkt 1, das Memory-Dump, beziehen. 

Der Aufbau eines Basic-Programms 
im Speicher 


Beginnen wir gleich mit dem ersten Byte, dem Inhalt der 
Speicherzelle $1C00. Da wir mit »M 2D« zur Feststellung 
der Anfangsadresse des Basic-Programms im Speicher 
sehen können, daß das Basic-Programm im Speicher erst 
1 Byte später abgelegt ist (nämlich ab $1C01), mag es zu¬ 
nächst ein wenig verwundern, wenn hier ab $1C00 (also 
Anfangsadresse-1) gedumpt wird. 


100 REM "PROGRAMM VERSUCHSKANINCHEN" 

< 11 A> 

110 SCNCLR : PRINT "(C) 64*ER" 

<BLN> 


< I28> 

130 COLOR 6,1 

<NDB> 

140 END 

<54M> 

Listing 7. Das »Versuchskaninchen« 



In dieser Anfangsadresse-1 muß ein $00-Byte enthalten 
sein, da sonst bei RUN oder NEW ein SYNTAX ERROR er¬ 
folgt (ändern Sie doch einmal im Dump das $00 in $40 oder 
$01 oder irgendein Byte außer $00, und geben Sie nach X 
den Basic-Befehl RUN ein, dann sehen Sie den Effekt. Ge¬ 
naugenommen hat dieses $00-Byte keine weitere Funk¬ 
tion, als eine Markierung zu sein. 

Diese Markierung haben wir schon beim Verschieben ei¬ 
nes Basic-Programms mit dem T-Befehl angesprochen, 
bei dem wir diese mittels POKE auf 0 gesetzt hatten. 

Bevor wir nun fortfahren, sei noch klargestellt, daß der In¬ 
terpreter bei der Speicherung von Integerwerten zwischen 
0 und 65535 das sogenannte »Low-High-Format« ver¬ 
wendet. 

Wie in einem Vektor oder Zeiger (wir erinnern uns an 
$2D/$2E als Zeiger auf den Beginn des Basic-Programms 
im Speicher) wird in der Speicherzelle, die eine niedrigere 
Adreßzahi hat, das Low-Byte, in der darauf folgenden das 
High-Byte abgelegt. Da im Speicher - insbesondere beim 
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Dump - zuerst das Low-, und dann erst das High-Byte steht, 
spricht man vom »Low-High-Format«. 

Wie man mit diesem umgeht, wurde schon besprochen, 
und dies hier sollte nur eine kleine Auffrischung sein. Wir 
wollen aber nun mit dem Thema »Aufbau eines Basic- 
Programms im Speicher« fortfahren. 

Die Linkpointer 


Bei $1C01 geht dann schon die Speicherung der ersten 
Programmzeile - im Beispiel ist das Zeile 100 - los. 

Die zwei ersten Bytes einer Zeile sind der »Linkpointer«. 
»Linkpointer« kommt vom englischen »to link«, was über¬ 
setzt »verbinden« heißt. 

• Die Linkpointer (so sagt man allgemein, und wir wollen 
dieses Wort beibehalten) zeigen die Adresse an, ab der die 
nächste Basic-Zeile im Speicher beginnt - da bei der Spei¬ 
cherung am Anfang jeder Zeile der Linkpointer steht, zeigt 
ein Linkpointer auf den nächsten und so weiter. 

Der erste Linkpointer ist also $1C24, bei $1C24 steht ein 
Linkpointer auf $1C37, dort steht einer auf... Dies geht wei¬ 
ter bis Adresse $1C63, in der ein Linkpointer auf $1C69 
zeigt. Und bei $1C69? Dort stehen zwei Null-Bytes hinter¬ 
einander als Linkpointer, woran der Basic-Interpreter er¬ 
kennt, daß an dieser Stelle das Basic-Programm zu Ende 
ist. Die in dieser Dump-Zeile noch stehenden $FF-Bytes 
gehören schon nicht mehr zum Programm, und höchst¬ 
wahrscheinlich stehen bei Ihnen dort andere Werte - zum 
Beispiel noch Überreste eines vorher im Speicher befindli¬ 
chen Programms. 

Die Hauptaufgabe der Linkpointer ist es, der LIST- 
Routine die Arbeit zu erleichtern. 

Irgendwo muß sich der Computer auch die Zeilennum¬ 
mer mo.\.en. Und diese legt er - ebenfalls im Low-High- 
Format - unmittelbar hinter dem Linkpointer ab. Im Bei¬ 
spielprogramm stellen die Bytes »64 00« die Zeilennummer 
der ersten Basic-Zeile dar; wenn wir $0064=$64 umrech¬ 
nen lassen, sehen wir, daß es sich um Zeile 100 handelt - 
auch im Listing ist 100 die Nummer der ersten Zeile. 

Linkpointer und Zeilennummer sind der »Kopf« einer 
Basic-Zeile im Speicher. Darauf folgt dann das Speicherfor¬ 
mat der Befehle, das uns auch noch interessieren wird. 

Die Token 


An früherer Stelle wurden die »Token« schon einmal ange¬ 
sprochen. Jetzt wollen wir endlich wissen, worum es sich 
dabei handelt. 

Wenn Sie die ASCII-Darstellung im Dump einmal anse- 
hen, finden Sie zwar den Text »PROGRAMM VERSUCHS¬ 
KANINCHEN«, der in Zeile 100 auf den REM-Befehl folgt, 
wieder, aber nicht den REM-Befehl selbst. 

Wir wollen nun herausfinden, woher der Computer das 
REM nimmt. Dazu suchen wir ein Zeichen aus Zeile 100 
nach dem anderen. Den Kopf der Zeile (Linkpointer und 
Zeilennummer) haben wir uns schon angesehen. Auf die 
Zeilennummer folgt im Listing ein Leerzeichen. Das der 
Zeilennummer folgende Byte im Speicher ist aber $8F, und 
nicht $20 (ASCII-Code für Leerzeichen). Dies läßt sich ganz 
einfach erklären: Ohne besondere Tricks oder Hilfspro¬ 
gramme werden alle Leerzeichen zwischen Zeilennummer 
und dem ersten Befehl vom Computer »geschluckt« (nicht 
im Speicher abgelegt). Deshalb ist es ja auch möglich, statt 
»100 REM« nur »100REM« einzugeben - nach LIST wird im¬ 
mer »100 REM« ausgegeben werden. 

Der Grund dafür ist, daß kein einziges Leerzeichen zwi¬ 
schen Zeilennummer und Befehl (sonst natürlich schon) in 
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Bild 24. Speicherausdruck des Programms »Versuchs¬ 
kaninchen« im 80- und 40-Zeichen-Modus 


den Speicher übernommen wird. Beim LISTen aber fügt die 
LIST-Routine automatisch nach der Zeilennummer genau 
ein Leerzeichen ein. 

Jetzt wissen wir zwar, warum trotz des geLISTeten Leer¬ 
zeichens auf die Zeilennummer im Speicher nicht der 
ASCII-Code eines Leerzeichens folgt, uns ist aber noch 
nicht klar, was das $8F-Byte bedeuten soll. Dieses Byte ist 
nämlich die Lösung unseres Ausgangsproblems (wie denn 
das REM gespeichert wird): $8F steht stellvertretend für 
REM. 

Der Vorteil von $8F gegenüber $52 $45 $4D (das sind die 
ASCII-Codes von REM) ist, daß es sich nur um ein Byte 
(statt um drei) handelt und der Computer dadurch viel 
schneller arbeiten kann. Außerdem verringert sich durch 
diese Codierung - statt eines Befehlswortes wird ein Byte 
gespeichert - als Nebeneffekt der Speicherplatzbedarf des 
Basic-Programms. 

Einen solchen Code für einen Basic-Befehl nennt man 
»Token«. Ein Token besteht in der Regel aus einem Byte, 
beim CI28 haben manche Befehle sogar ein »erweitertes 
Token«, worauf wir später noch ausführlicher zu sprechen 
kommen werden. 

Bei der Eingabe einer Basic-Zeile werden alle Befehls¬ 
wörter - sofern sie nicht nach einem REM oder in Anfüh¬ 
rungszeichen stehen - sofort codiert und in Token umge¬ 
wandelt. Diese Codierung nennt man »Token-Bildung« oder 
»Tokenisierung«. 

Ein-Byte-Token bestehen aus Werten kleiner $80. Zwei- 
Byte-Token (erweiterte Token) haben ein »Vor-Token«, näm¬ 
lich $CE oder $FE, das das Token einer bestimmten Grup¬ 
pe von Befehlswörtern zuweist. Das diesem Vor-Token fol¬ 
gende Byte ist eine Zahl größer als $01, die zusammen mit 
dem Vor-Token eine genaue Bestimmung ermöglicht. 


Als Bild 25 finden Sie eine Tabelle der C128-Token. 

Was wird als ASCII-Code gespeichert? 

Nachdem wir nun wissen, wie Zeilennummern und Be¬ 
fehlswörter (wozu wir auch Funktionen und Operanden wie 
+, -, / und * zählen) im Speicher abgelegt werden, stellt 
sich die Frage, was mit den anderen Zeichen geschieht 
(zum Beispiel Leerzeichen, die nicht zwischen Zeilennum¬ 
mer und erstem Befehl stehen). Diese werden einfach im 
ASCII-Code abgelegt. Gleiches gilt für alle Zeichen, die 
entweder einem REM-Befehl folgen oder in Anführungszei¬ 
chen stehen. 

Am Ende einer jeden Basic-Zeile steht ein $00-Byte. Die¬ 
se Endmarkierung ist unbedingt erforderlich, da die wich¬ 
tigsten Unterroutinen des Basic-Interpreters von diesem 
Umstand ausgehen. 

Nun ist uns auch klar, warum am Ende eines Basic- 
Programms 3 mal $00 steht: Einmal steht es als Endmarkie- 
rung der letzten Zeile und zweitens als letzter Linkpointer 
(also ojch als Endmarkierung). 

Nachdem uns nun die wichtigsten Grundlagen bekannt 
sind, dürften Sie in der Lage sein, Byte für Byte das 
Memory-Dump (Bild 25) zu erläutern. Dabei können Sie 
sich durchaus auch auf das Basic-Listing stützen, denn Sie 
müssen nicht selbst die Token umrechnen können. Sie soll¬ 
ten aber erkennen, ob es sich um Linkpointer, Zeilennum¬ 
mer, Befehlstoken oder ASCII-Code handelt. 

Wenn Sie ein tiefgreifendes Verständnis gewonnen ha¬ 
ben, wird es für Sie keine Schwierigkeit mehr sein, Manipu¬ 
lationen am Programm durchzuführen. Damit werden sich 
die nächsten Abschnitte beschäftigen. 

Speichern Sie spätestens jetzt das Programm »Ver¬ 
suchskaninchen«, denn nun wollen wir daran Manipulatio¬ 
nen durchführen; zwar ist die Abtipparbeit gering, aber ein 
Verlust des Programms aufgrund eines vielleicht kleinen 
Fehlers wäre ärgerlich. Danach können wir anfangen, be¬ 
liebige Manipulationen auszuführen. 

Da wir alles sofort ausprobieren wollen und Sie somit an¬ 
dauernd am Memory-Dump des »Versuchskaninchens« et¬ 
was ändern werden, vereinbaren wir vorher, wie wir Ihnen 
die Änderungen am Memory-Dump angeben. 

Nehmen wir ein Beispiel (nur fiktiv, nicht eingeben oder 
testen): 

>01C00 45 46 47 48 49 50 54 45 53 54... 

Dies bedeutet für Sie: 

- M 01C00 eingeben, sofern entsprechende Zeile noch 
nicht am Bildschirm ist 

- die nicht-unterstrichenen Bytes unverändert lassen 

- an unterstrichenen Stellen neue Werte eingeben (sech¬ 
stes bis achtes und zehntes Byte) 

- die Punkte »...« zeigen ari, daß die dem letzten abge¬ 
druckten Wert folgenden Bytes nicht mehr geändert 
werden sollen 

Am einfachsten ist es, wenn Sie die angezeigte Zeile di- 
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rekt eingeben (natürlich ohne die Punkte am Ende). Wie 
gesagt: Dieses Beispiel sollen Sie noch nicht ausführen. 

Wie wir wissen, zeigt immer der Linkpointer einer Zeile 
auf den Linkpointer der nächsten Zeile und so weiter, bis 
der Linkpointer aus zwei Null-Byte, der Endmarkierung, be¬ 
steht. 

Die LIST-Routine benötigt diese Linkpointer, um zu wis¬ 
sen, ab welcher Adresse weitergeLISTet werden soll oder 
ob bereits das gesamte Programm geLISTet wurde. 

Linkpointer manipulieren 


Etwas, worauf die LIST-Routine nicht vorbereitet ist, sind 
Linkpointer, die aufgrund einer Manipulation mit dem Moni¬ 
tor nur auf sich selbst zeigen. Wenn man so etwas eingibt, 
wird ein und dieselbe Zeile immer wieder geLISTet (Endlos- 
Listing). Setzen wir unsere raffinierte Idee gleich in die Tat 
um: 

>01C00 00 01 IC... (das dritte Byte ist sicher schon IC) 
Wie Sie sehen, steht der Linkpointer bei $1C01. Wir ha¬ 


ben ihn mit »01 IC«, also$1C01, belegt. Um das verblüffen¬ 
de Ergebnis zu sehen, geben Sie doch einmal X und da¬ 
nach LIST ein: Die Zeile 100 (also die erste Zeile) wird im¬ 
mer wieder geLISTet, die Zeilen 110-140 werden »ver¬ 
schluckt«. 

Geben Sie jetzt doch einmal »LIST 110-«ein. Der Compu¬ 
ter - genauer gesagt: der Basic-Interpreter - verliert sich 
jetzt in einer Endlosschleife, denn bei der Suche nach einer 
bestimmten Zeile im Basic-Speicher stützt sich der Compu¬ 
ter auf die Linkpointer. Da er die Suche mit dem ersten Link¬ 
pointer beginnt, prüft er immer nur die erste Zeile (Zeile 100) 
darauf, ob sie die Zeilennummer 110 hat. Diese Bedingung 
ist natürlich nie erfüllt, und der Computer wird »an der Nase 
herumgeführt«, bis man ihn mit < RUN/STOP+RESTO- 
RE > zur Vernunft bringt. Das gleiche Problem tritt auch bei 
GOTO, GOSUB, RUN Zeilennummer auf. Für den Fall, daß 
ein Programm (wie unser Beispielprogramm) überhaupt 
keinen solchen Befehl, der eine Zeilennummer als Argu¬ 
ment hat, verwendet, wäre diese Linkpointer-Manipulation 
eine gute Listschutz-Möglichkeit, wenn nicht... Ja, wie Sie 
der Bemerkung »wenn nicht« entnehmen können, steht 
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dem ein unüberwindbares Hindernis im Weg: Wir können 
zwar im Speicher solche Manipulationen durchführen, 
aber wenn der Listschutz wirksam sein soll, so muß er auch 
nach dem Speichern und einem Neuladen bestehen. 

Wenn auch beim Speichern die manipulierten Linkpoin¬ 
ter mitgeSAVEt werden, so wird nach dem Laden mit LOAD 
oder DLOAD automatisch eine Linkpointer-Neuberech¬ 
nung durchgeführt, die die Linkpointer wieder in den Nor¬ 
malzustand versetzt - und der schöne Listschutz ist wieder 
dahin. 

Diese Linkpointer-Neuberechnung kann man übrigens 
auch überden Befehl »BANK15:SYS20303« ausführen las¬ 
sen. Bei 20303 in Bank 15 steht nämlich die Routine des 
Basic-Interpreters zur Neuberechnung. 

Unsere Manipulationen dienen also zunächst einmal nur 
der Demonstration; wirklich als Listschutz verwendbare 
Verfahren werden Ihnen selbstverständlich auch vorge¬ 
stellt werden, und zwar mehr als genug! 

Es geht zunächst einmal nur darum, daß Sie Praxis im 
Umgang mit dem Monitor bekommen und daß Sie das Prin¬ 
zip verstehen. 

Der genannte Befehl »BANK15:SYS20303« eignet sich 
aber gut, wenn man ohne Speichern und nochmaliges La¬ 
den die Versuchsmanipulationen beheben möchte. 

Geben Sie deshalb jetzt diesen Befehl ein, damit das 
Programm wieder im Ausgangszustand ist und wir eine 
weitere - ähnliche - Manipulation durchführen können, die 
mehr ein interessanter Effekt als ein Listschutz ist. 

Wir wollen dazu den letzten Linkpointer auf den Pro¬ 
grammbeginn ($1C01) stellen, damit immer wieder das Pro¬ 
gramm geLISTet wird - nach dem LISTen der letzten Zeile 
soll wieder die erste ausgegeben werden und so weiter. 

Verfolgen wir also die Linkpointer: 

der erste (bei $1C01) zeigt auf $1C24, 

$1024 zeigt auf $1C37, 

$1C37 zeigt auf $1C5A, 

$1C5A zeigt auf $1C63, 

$1C63 zeigt auf $1C69, 

bei $1C69 steht die Linkpointer-Endmarkierung: 00 00 

Der letzte wirkliche Linkpointer (also abgesehen von der 
Endmarkierung) ist folglich $1C63. Diesen stellen wir nun 
auf den Anfang des Programms: 

>01C60 2C 31 00 01 IC 

Das zweite zu ändernde Byte ist ohnehin schon mit $1C 
belegt. 

Geben Sie nun LIST ein, so wird das Programm ununter¬ 
brochen gelistet (diesmal alle Zeilen), ein Abbruch ist nur 
mit < RUN/STOP > möglich. Wenn Sie nun eine (nicht exi¬ 
stente) Zeilennummer 140 LISTen oder anspringen wollen, 
so befindet sich der Computer wieder in einer Endlos¬ 
schleife, denn er ist nicht in der Lage, das Programmende 
zu erkennen und sucht vergeblich weiter. Aber-wiedie Ein¬ 
gabe »BANK15:SYS20303« zeigt - ist auch dieser Spaß 
nicht »wetterfest«: nach dem Laden eines derart behandel¬ 
ten Programms geht der Effekt verloren. 

Als letzte Linkpointer-Manipulation wollen wir bewirken, 
daß Zeilen für LIST nicht vorhanden sind, aber trotzdem ab¬ 
gearbeitet werden. Leider ist auch eine solche Änderung 
nicht gerade dauerhaft, aber zur Demonstration ist das eine 
nette Spielerei. 

Sehen wir uns noch einmal die »Marschroute« der Link¬ 
pointer an: 

1C01-1C24-1C37-1C5A-1 C63-Endstation bei 1C69 

Wir wollen nun die Linkpointer etwas umstellen: 
1C01-1C63-Endstation bei 1C69 

Dazu müssen wir einfach den Linkpointer 1C01 auf 1C63 
stellen, alles weitere ergibt sich daraus von selbst: 
>01C01 63 IC... 


Nach diesen Manipulationen, die durch Speichern und 
Neuladen zerstört werden und somit kein Schutz sind, wol¬ 
len wir nun auch Änderungen durchführen, die dauerhafter 
sind. 

Im Gegensatz zu den Linkpointern werden die Zeilen¬ 
nummern nicht nach jedem Ladevorgang neu berechnet, 
sondern bleiben unverändert. Somit sind Manipulationen 
an den Zeilennummern wesentlich dauerhafter als Link- 
pointer-Manipulationen. 

Wie wir wissen, darf bei der Eingabe einer Zeilennum¬ 
mer die Zeilennummer nicht größer als 63999 (= SF9FF) 
sein. Da die Zeilennummer im Speicher als Zwei-Byte- 
Integerzahl im Low-High-Format abgelegt wird, wären ei¬ 
gentlich Zeilennummern bis (2 ,6 )-1 = $FFFF = 65535 
möglich. Warum der Interpreter hier engere Grenzen setzt 
als nötig, ist nicht bekannt. Sollten Sie mehr darüber wis¬ 
sen, schreiben Sie uns doch einmal. 

Zeilennummem manipulieren 


Was dieses Thema für uns so interessant macht, ist die 
Tatsache, daß Zeilen mit Zeilennummern über 63999 nicht 
angesprungen und vor allem nicht über Eingabe von Zei¬ 
lennummer und < RETURN > oder »DEL Zeilennummer« 
gelöscht werden können. 

Wenn wir also Zeilen zur Verfügung haben, die nicht an¬ 
gesprungen werden (zum Beispiel Einzeiler-Programme), 
können wir mit dem Monitor auch Zeilennummern bis 
65535 erzeugen. Nehmen wir wieder unser Beispielpro¬ 
gramm und probieren es gleich aus: 

>01C03 EE8 FD... 

Damit haben wir die Zeilennummer der ersten Zeile (ur¬ 
sprünglich 100) auf $FDE8 = 65000 gesetzt. Nun setzen 
wir ?*>• h noch die anderen Zeilennummern neu: 

>01026 F2 FD... 

>01C39 FC FD... 

>01C5C 06 FE... 

>01C65 10 FE... 

Nach diesen Änderungen hat das Programm die Zeilen¬ 
nummern 65000 bis 65040. Versuchen Sie doch einmal, ei¬ 
ne Zeile zu löschen (aber nicht mit NEW): 

65000 < RETURN > ergibt einen »7SYNTAX ERROR«. 

Bei den anderen Zeilennummern ist dies, weil alle größer 
als 63999 sind, auch nicht anders. 

Da die Zeilennummern erhalten bleiben, können Sie das 
Programm in diesem Zustand speichern, und nach dem La¬ 
den wird es immer noch die überdimensionalen Zeilen¬ 
nummern haben. 

Auch ein »BANK15:SYS20303« (Linkpointer-Neuberech- 
nung) ändert nichts daran. 

Der große Nachteil von derartig manipulierten Program¬ 
men ist, daß das Ändern einer Zeile mit unerlaubter Zeilen¬ 
nummer nicht so leicht möglich ist (mit dem Basic-Editor 
geht es jedenfalls nicht); dies kann aber, wenn man sein 
Programm gegen allzu leichte Eingriffe schützen will, ein 
Vorteil sein. 

Besonders interessant sind überdimensionale Zeilen¬ 
nummern für Einzeiler, die unter Umständen nur die Basic- 
Start-Zeile eines Maschinenprogramms sind. 

Eine andere Möglichkeit der Manipulation von Zeilen¬ 
nummern ergibt sich daraus, daß man eine Zeilennummer 
als Zeilennummer für mehrere Zeilen verwendet. Damit 
kann man ein Listing ziemlich chaotisch gestalten. Natür¬ 
lich kann diese Mehrfach-Zeilennummer auch noch zu¬ 
sätzlich überdimensional sein. Damit Sie auch dies gleich 
in der Praxis einmal anwenden können, wollen wir in unse¬ 
rem Beispielprogramm jeder Zeile die Zeilennummer 
65535 geben. 
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Dazu sind folgende Änderungen erforderlich: 

>01003 FF FF 
>01026 FF FF 
>01039 FF FF 
>01C5C FF EE 
>01065 FF FF 

Es ist selbstverständlich auch möglich, nur Teilen eines 
Programms gleiche Zeilennummern zu geben; achten soll¬ 
te man nur darauf, daß an eine mehrfach verwendete Zei¬ 
lennummer kein Sprung (GOTO, GOSUB, RUN) erfolgt. 
Wenn man sich daran hält, kann eigentlich nichts passie¬ 
ren. 

Nun wollen wir zum Abschluß dieses Abschnitts noch 
Anwendungen des H-Befehls besprechen, von denen die 
eine bei der Manipulation eines Basic-Programms mit dem 
Monitor nützlich ist, die andere bei der Basic-Programmie- 
rung. 

a) Suche nach einer bekannten Zeile im Speicher 

Oft kommt man in die Lage, daß man eine bestimmte Zei¬ 
le, deren Zeilennummer man kennt, im Speicher suchen 
möchte, um sie dann mit dem Monitor zu bearbeiten; insbe¬ 
sondere in den folgenden Abschnitten werden solche An¬ 
wendungsfälle auftreten. 

Die gezielte Suche nach dieser Zeile ist für uns, da wir ja 
den Aufbau einer Basic-Zeile im Speicher kennen, keine 
Schwierigkeit mehr. 

Wir müssen nur die Zeilennummer ins hexadezimale 
Low-High-Format umrechnen und danach gezielt suchen 
lassen. 

Auch an dieser Stelle möchten wir Ihnen ein schrittwei¬ 
ses Verfahren vorschlagen: 

I. Umwandlung der dezimalen Zeilennummer ins hexa¬ 
dezimale Zahlensystem 

Nehmen wir als Beispiel die Zeile 4000 (dezimal). Also 
müßten wir »+4000« eingeben, um das hexadezimale Er¬ 
gebnis ($0FA0) zu erhalten. 

II. Umwandlung der hexadezimalen Zahl ins Low-High- 
Format 

Die beiden ersten Stellen ergeben das HB, die beiden 
letzten das LB. Im Beispiel: LB=$A0, HB=$0F. Das Low- 
High-Format ist folglich »AO OF«. 

III. Suche nach Low-High-Format der Zeilennummer 

Nun ist noch der Bereich, in dem das Basic-Programm 

liegt, zu durchsuchen. Die Anfangs- und Endadresse kann 
man, wenn man diese Parameter noch nicht kennt, mit Hilfe 
des M-Befehls ermitteln (siehe Abschnitt über den M- 
Befehl). 

Nehmen wir an, die Anfangsadresse ist $1001 (Normal¬ 
einstellung) und die Endadresse $789F. Der Suchbefehl 
lautet dann »H 1C01 789F AO OF«. 

IV. Auswertung des Suchergebnisses 

In den meisten Fällen wird man wohl nur eine Adresse als 
Ergebnis erhalten (nehmen wir als Beispiel $3A61). Von die¬ 
ser Adresse, die die Adresse der Zeilennummer im Spei¬ 
cher ist, kann man dann alle zur gesuchten Zeile benötigten 
Adressen ausrechnen: 

Die Linkpointer stehen bei Adresse-2 = $3A61-2 = 
$3A5F, die Tokens und ASCII-Codes der Zeile bei 
Adresse+2 = $3A61+2 = $3A63. 

Wenn man mehrere Adressen als Ergebnis der Suche 
über den H-Befehl erhält, so muß man mit »M Adresse« prü¬ 
fen, ob ab Adresse+2 die Codes der richtigen Basic-Zeile 
stehen. Dieses Prüfen von Hand ist nur selten nötig, und 
man erhält in den seltensten Fällen mehrere Adressen, die 
zu testen sind. Wenn dies dennoch der Fall ist, so kann man 
sich das Prüfen dadurch erleichtern, daß man zwischen¬ 
zeitlich den Monitor verläßt, »LIST Zeilennummer« eingibt 
und dann im Monitor direkt mit der - noch am Bildschirm 
stehenden - geLISTeten Zeile vergleicht. So findet man die 


Adresse einer Programmzeile im Speicher ziemlich 
schnell. 

b) Suche nach einer Stelle im Programm 

Es gibt aber auch eine etwas andere Suche nach einer 
Stelle im Programm, für die es beim ansonsten überzeu¬ 
genden Basic 7.0 keinen Befehl gibt: die Suche nach Pro¬ 
grammzeilen, in denen bestimmte Stellen (zum Beispiel 
ein Text) Vorkommen. 

Dieser Anwendungsfall ist beim Basic-Programmieren 
sehr häufig, vor allem dann, wenn man Programme anse- 
hen oder gar ändern will. 

Auch für diesen Fall können wir auf den H-Befehl des 
TEDMON zurückgreifen, wobei man ungefähr folgender¬ 
maßen vorgeht: 

I. Suche nach Stelle im Basic-Speicher 

Hierbei ist zu beachten, daß Basic-Befehlswörter zu To¬ 
ken werden. Wie man Anfangs- und Endadresse des 
Basic-Programms im Speicher ermittelt, wissen wir bereits. 

II. Gefundene Stellen mit M ansehen 

Der Computer gibt nach dem H-Befehl alle die Stellen 
aus, an denen die Stelle steht. Da wir zur weiteren Bearbei¬ 
tung über LIST und den Basic-Editor aber die Zeilennum¬ 
mer - diese steht im Speicher vor dem Programmtext - be¬ 
nötigen, lassen wir das Memory-Dump einfach bis zu 250 
Byte früher als die über H gefundene Adresse beginnen. 
Wenn wir also $F3457 erhalten, dumpen wir »M F335A«. 

III. Zeilennummer suchen 

Nun suchen wir das letzte Null-Byte (Endmarkierung ei¬ 
ner Basic-Zeile) vor der (über H) ausgegebenen Adresse. 
Diese Markierung ist die Endmarkierung der letzten Basic- 
Zeile vor der Zeile, in der der gesuchte Text steht. Auf das 
Null-Byte folgt dann ein für diese Suchzwecke uninteres¬ 
santer Linkpointer, hinter dem schließlich die Zeilennum¬ 
mer im Low-High-Format steht. Mit Hilfe des $-Befehls kann 
man dic.-,e Zeilennummer ins dezimale Format umwandeln 
lassen, und einerweiteren Bearbeitung der Zeile über LIST 
und den Basic-Editor steht nun nichts mehr im Wege. 


ASCII-Codes in 
REM-Zeilen unterbringen 


Als Vorübung für dieses Thema, das unser letztes sein wird 
(es erstreckt sich über diesen und die folgenden zwei Ab¬ 
schnitte), sollten Sie den Abschnitt über die ASCII-Codes 
gelesen haben. 

Wir wollen nun darangehen, bestimmte ASCII-Codes 
in ein Basic-Programm einzubauen (unser Beispielpro¬ 
gramm Versuchskaninchen verwenden wir weiter), um 
Chaos oder aber Ordnung in ein Basic-Listing zu bringen. 
Wir werden sowohl das Listing übersichtlicher gestalten als 
auch Listschutzverfahren anwenden. 

Wir werden mit dem Monitor (vor allem dem M-Befehl) in 
REM-Zeilen - damit das Programm weiterhin lauffähig 
bleibt-ASCII-Codes schreiben, die dann beim LISTen aus¬ 
gegeben werden und somit zur Ausführung kommen. 

Damit Sie - ohne große Vorkenntnisse, die wir natürlich 
auch erarbeiten wollen - einen Überblick der uns erwarten¬ 
den Möglichkeiten sehen können, geben Sie bitte folgen¬ 
den Befehl an den Monitor ein: 

>01C06 13 12 

$13 (# 19) ist der ASCII-Code für HOME, $12 (# 18) der für 
RVS ON. 

Wenn Sie nun LISTen (geben Sie einfach nach X den 
Basic-Befehl LIST ein), so erscheint der Inhalt der ersten 
REM-Zeile (Zeile 10) unabhängig von der Startposition des 
Cursors beim Listen links oben am Bildschirm (also von der 
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HOME-Position an). Dies wird natürlich durch den über > 
eingebauten Code $13 ausgelöst. 

Außerdem erscheint der Text »PROGRAMM VER¬ 
SUCHSKANINCHEN« nun in inverser Darstellung, was 
durch den Code $12 verursacht wird. 

Dies sollte nur ein kleiner Einstieg sein; probieren Sie 
doch einmal die folgenden Eingaben aus, wobei Sie vor je¬ 
der Änderung das Programm noch einmal laden sollten 
(damit die alten Manipulationen entfernt werden): 

>1C06 1B58 
>1C06 07 
>1C06 0D 
>1C06 1F 
>1C06 05 
>1C06 1B4A 

Bei der ersten Eingabe könnte vielleicht der Eindruck 
entstehen, der Computer würde zum Abstürzen gebracht; 
dies ist jedoch nicht so: es wird durch die Steuerzeichen 
1B 58 nur bewirkt, daß die Anzeige vom 40- auf den 80-Zei- 
chen-Bildschirm wechselt oder umgekehrt. 

Bei den Befehlen, bei denen auf 1C06 nur ein Byte folgt, 
wird im übrigen das Leerzeichen vor »PROGRAMM VER¬ 
SUCHSKANINCHEN« überschrieben, weshalb es von da 
an nicht mehr existiert und als unmittelbare Folge nicht geli¬ 
stet wird (statt dessen unser Steuerzeichen). 

Auch wenn Sie nun schon ein paar weitere Beispielmani¬ 
pulationen durchgeführt haben: das ist nur die Spitze des 
Eisbergs. 

Vom Rest trennt uns aber nicht mehr viel, denn der Moni¬ 
tor ist mittlerweile für uns ein hilfsbereiter Freund geworden 
(hätten Sie das in Ihrer Anfangszeit mit dem Monitor ge¬ 
dacht?) und wird uns keine Schwierigkeiten machen. Wir 
müssen nur noch den Basic-Interpreter überlisten, und um 
es gleich zu sagen: das ist nicht schwer. 

Einen Großteil wissen wirschon: Uns ist bekannt, wie ein 
Basic-Programm im Speicher abgelegt wird. Sehr interes¬ 
sant ist dabei die Tatsache, daß Texte nach REM-Befehlen 
direkt im ASCIi-Code abgelegt werden. 

Nun müssen wir noch wissen, wie der LIST-Befehl den 
Interpreter-Code (Token) des Basic-Programms in den 
leichtverständlichen Klartext umwandelt. Dazu geht er fol¬ 
gendermaßen vor: 

- Zeilennummern werden ausgegeben, Linkpointer igno¬ 
riert (für den Basic-Programmierer sind diese uninteres¬ 
sant und müssen nicht ausgegeben werden). 

- Token werden daran erkannt, daß sie größere Werte als 
$7F sind und nicht zwischen zwei Anführungszeichen 
stehen (sonst wären Werte größer als $7F als ASCII- 
Codes für Grafikzeichen etc. unbrauchbar); solche als 
Token erkannten Werte werden mit Hilfe einer Tabelle im 
ROM, in der die Klartexte der Befehle aufbewahrt sind, 
umgewandelt. Diese Tabelle haben wir uns bereits mit 
dem M-Befehl angesehen (M F4417). 

- Nicht-Token und alle Codes, die in Anführungszeichen 
stehen, werden unmittelbar wie über »PRINT CHR$(Co- 
de);« ausgegeben - also ohne vorheriges Codieren oder 
Umwandeln in einen dazugehörigen Klartext, wie dies 
etwa bei Token erfolgt. 

- Am Ende einer Zeile, welche anhand der Endmarkie¬ 
rung $00 erkannt wird, wird das Steuerzeichen RE¬ 
TURN (ASCII-Code $0D= #13) ausgegeben. In Basic ist 
dies mit »PRINT CHR$(13);« oder einfach »PRINT« (ohne 
Parameter) möglich. 

Aufgrund der Token ergibt sich nun ein kleines Problem: 
Steuerzeichen mit Codes über $7F - wie zum Beispiel $93, 
den Code für CLR/HOME, können wirzwareinbauen-zum 
Beispiel über >1C06 93, aber diese werden nicht einfach 
an die Ausgaberoutine des Betriebssystems gesendet und 
dann ausgeführt, sondern als Token behandelt, weshalb 

93Ö? 


anstelle des ursprünglich vorgesehenen Steuerzeichens 
dann ein Basic-Befehl erscheint (probieren Sie es aus: 
>1C06 93 schreibt zwar den ASCIi-Code des Steuerzei¬ 
chens für Bildschirm-Löschen unmittelbar hinter den REM- 
Befehl, beim Listen auf dem Bildschirm erscheint jedoch 
ein Basic-Befehl). 

Der Einfachheit halber werden wir fürs erste nur Codes, 
die kleiner als $80 sind, einbauen; für die anderen finden 
wir auch noch eine Lösung, wenn wir schon mehr Übung 
gewonnen haben. 


Das Steuerzeichen RETURN 


Eine kleine Abhandlung über das ungemein wichtige Steu¬ 
erzeichen RETURN wurde bis zu dieser Stelle aufgescho¬ 
ben, aber jetzt wird es Zeit, daß wir uns über dieses Gedan¬ 
ken machen. 

RETURN werden wir fortan als CR bezeichnen. CR ist 
die Abkürzung für »carriage return«, was man mit »Wagen¬ 
rücklauf« übersetzt. Dieser Begriff dürfte auch aus den 
Handbüchern der Drucker bekannt sein. 

CR werden wir deshalb sagen, weil RETURN zu Ver¬ 
wechslungen mit dem Basic-Befehl gleichen Namens füh¬ 
ren kann - auch wenn der Sinnzusammenhang dem Fort¬ 
geschrittenen eine klare Unterscheidung ermöglichen 
dürfte. 

Ein CR ($0D= #13) bewirkt bei der Ausgabe - unabhän¬ 
gig von jedem Ausgabe-Modus - folgendes: 

- Es wird auf den Normal-Modus (siehe Eingabemodi des 
Betriebssystems) zurückgeschaltet. 

- Der Cursor springt an den Anfang der nächsten Zeile. 

- Der RVS-Modus wird ausgeschaltet. 

IriaL.jsondere der erste Punkt ist sehr wichtig. Dem CR 

ähnlich ist der Code $8D = #141, der per Tastatur über 
<SHIFT+RETURN> erreicht wird. Dieser entspricht in 
den genannten Wirkungen exakt dem CR-Code, gilt aber 
nicht als Abschluß einer Eingabe. Eine vom Basic-Befehl 
INPUT geforderte Eingabe wird nur durch Drücken von 
< RETURN> (also CR) abgeschlossen, nicht über 
<SHIFT+RETURN>. 

Für den Anfang haben wir jetzt die theoretischen Grund¬ 
lagen erarbeitet; wir wollen nun in der Praxis Manipulatio¬ 
nen durchführen, um Steuerzeichen in unser Beispielpro¬ 
gramm einzubauen. Hierbei verwenden wir zunächst nur 
die beiden REM-Zeilen, wobei in der ersten (Zeile 100) der 
Text erhalten bleiben soll. 

Die Änderungen werden wir so angeben, daß sie nach 
und nach durchgeführt werden und eine Manipulation - so¬ 
fern dies möglich ist - keine vorhergehende Manipulation 
rückgängig macht. Falls dem nicht so ist, werden wir extra 
darauf hinweisen. 

Wir werden es Ihnen ebenfalls mitteilen, wenn unsere 
ersten Versuche fertig sind; das Programm befindet sich 
dann im manipulierten Zustand, und Sie können es durch¬ 
aus einmal speichern. 


CR und/oder LF 


Auf die Liste der Steuerzeichen des C128 aus dem Ab¬ 
schnitt über die ASCII-Codes sei noch einmal hingewiesen. 
Nun aber zu den Manipulationen am Basic-Programm. 

CR haben wir in diesem Abschnitt schon besprochen. 
Neu ist jedoch die Abkürzung »LF«. LF steht für »line feed«, 
auf deutsch »Zeilenvorschub«. Benutzer eines Druckers 
dürften dieses Steuerzeichen vielleicht schon kennen. Am 
Bildschirm entspricht es der Taste <CRSR DOWN>. 
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Während CR in jedem Modus funktioniert und gewisse 
Einstellungen wie das Umschalten in den Normal-Modus 
(Anführungszeichen-Modus aus) vornimmt, tut dies der LF- 
Code (zu erreichen über die <LINE FEED>-Taste der 
C128-Tastaturoder <CTRL J>) nicht. Wie gesagt, er ent¬ 
spricht eigentlich der Bewegung <CRSR DOWN>. 

Wir wollen nun mit Hilfe des CR-Codes erreichen, daß 
die Zeile 

100 REM "PROGRAMM VERSUCHSKANINCHEN" 
fortan so geLISTet wird: 

100 REM 

"PROGRAMM VERSUCHSKANINCHEN" 

Dazu ändern wir das Leerzeichen zwischen REM und 
»PROGRAMM...« auf den CR-Code: 

>01C00 00 24 IC 64 00 8F 0D 22 50 52 4F 47... 

Sie können auch der Einfachheit halber >1C06 0D ein¬ 
geben. 

Verlassen Sie den Monitor mit X und geben Sie LIST ein, 
so können Sie das Ergebnis sehen. 

Dabei wollen wir es jedoch nicht belassen. Ein schönerer 
Effekt ist es, wenn folgende Ausgabe auf LIST erscheint: 
100 REM 

"PROGRAMM VERSUCHSKANINCHEN" 

Wie Sie sicher erkennen können, müssen wir dazu den 
LF-Code ($0A= #10) verwenden: 

>01C00 00 24 IC 64 00 8F 0A 22 50 52 4F 47... 
oder einfach >1C06 0A eingeben. Dadurch wird der CR- 
Code mit dem LF-Code überschrieben. 

Sowohl diese Änderung als auch alle noch folgenden 
Manipulationen sollten Sie, um Erfahrung zu gewinnen, 
gleich über X und LIST ansehen, und danach wieder mit 
MONITOR (<SHIFT+F7>) in den Monitor zurücksprin¬ 
gen. 

Es stehen zwar 16 Farbcodes zur Verfügung, aber leider 
sind nur vier davon auf ASCII-Codes gelegt, die kleiner als 
$80 sind: 

weiß ist $05 (#05) 
rot ist $1C (#28) 
grün ist $1E (#30) 
blau ist $1F (#31) 

Wir wollen nun Farbe ins Spiel - sprich: in das Listing - 
bringen. 

Als Beispielanwendung soll nach dem LISTen von »100 
REM« die aktuelle Zeichenfarbe auf blau (ASCII-Code: 
$1F= #31) geschaltet werden. Dazu muß in Basic 
CHR$(31) ausgegeben werden, in unserem Fall - dem 
Basic-Programm - muß der ASCII-Code des Farbsteuerzei¬ 
chens in der REM-Anweisung stehen, damit er dann aus¬ 
gegeben wird und sich die Zeichenfarbe ändert: 

>01C00 00 24 IC 64 00 8F 0A 1F 50 52 4F 47... 
oder einfach >1C07 1F eingeben. 

Wir opfern also dem Farbsteuerzeichen das nicht so ele¬ 
mentar wichtige, erste Anführungszeichen. 

Nachdem wir das erste Anführungszeichen geopfert ha¬ 
ben, ist das zweite eigentlich auch überflüssig. Denkbar 
wäre unter anderem, dies mit einem CR oder LF zu über¬ 
schreiben. Wirwolien jedoch, daß nach der Kommentarzei¬ 
le der Text weiß ausgegeben wird. 

Sicher haben Sie schon erraten, was dazu getan werden 
muß: der Code des zweiten Anführungszeichens, der im 
Speicher bei $1C22 steht, muß mit dem Steuerzeichen 
überschrieben werden, welches die Zeichenfarbe auf weiß 
stellt: 

>01C20 45 4E 05 00 37 IC 6E 00... 
oder einfach >1C22 05 eingeben. 

Sie können auch anstelle unserer Beispielfarben Weiß 
(das war der $05-Code) und Blau ($1F) andere Farbsteuer¬ 
zeichen - die ASCII-Codes zur Einstellung der zunächst 
möglichen Farben kennen Sie bereits - ausprobieren. 


Während die Farben - sofern nicht gerade die Zeichen¬ 
farbe den gleichen Wert wie die aktuelle Hintergrundfarbe 
erhält - eher zur Übersichtlichkeit eines Listings beitragen 
als zu chaotischen Ausgaben, die Unbefugten den Zutritt 
zum Programm verwehren oder zumindest erschweren sol¬ 
len, kann man manche Codes ganz gut einsetzen, um Ver¬ 
wirrung im Listing zu stiften. Einige kleine Beispiele werden 
das im folgenden verdeutlichen: 

Cursor in Home-Position bringen 


Wie Sie wissen, bringt die HOME-Taste den Cursor in die 
Home-Position, das heißt die linke obere Ecke des Bild¬ 
schirms beziehungsweise Textfensters (falls man nur ein¬ 
mal auf <HOME> drückt und man überhaupt auf die 
Window-Technik zurückgreift). 

Der Cursor bestimmt immer die Stelle, an der die nächste 
Bildschirmausgabe erfolgt. Wenn wir ihn also wie übet die 
<HOME>-Taste in die linke obere Ecke wandern lassen, 
so wird das nächste Zeichen nach HOME, das geLISTet 
wird, lirtks oben ausgegeben. Das Interessante daran ist, 
daß alle Texte, die an den betreffenden Stellen stehen, 
überschrieben werden, die Stellen in einer Zeile, die nicht 
überschrieben werden, aber nicht gelöscht werden, son¬ 
dern ungestört erhalten bleiben. Wenn man nun in einem 
längeren Programm an mehreren Stellen (zum Beispiel alle 
zehn Zeilen) einen solchen »Stör-Code« anbringt, würde re¬ 
gelmäßig die Ausgabe wieder links oben beginnen, und 
das Listing der vorher geLISTeten Zeilen würde - zumin¬ 
dest teilweise - wieder überschrieben werden. Da jedoch 
Basic-Zeilen unterschiedlich lang sind und somit in geLI- 
STetem Zustand unterschiedlich viel Platz am Bildschirm 
beanspruchen, bliebe ab und zu dennoch ein Teil des Biid- 
schirma,'. lämlich der, der nicht durch das Listing der neuen 
Zeilen überschrieben wird, weiter erhalten, und es ließe 
sich nicht eindeutig bestimmen, wo die gerade angezeigte 
Basic-Zeile endet und wo nicht. 

Dies mag vielleicht nicht so einfach zu verstehen sein, wir 
wollen es darum einmal testen. 

Dazu opfern wir in der REM-Zeile 120 das Leerzeichen 
zwischen dem REM-Befehl und den Sternchen »**« fürden 
ASCII-Code von HOME ($13= #19): 

>01C38 IC 78 00 8F13 2A2A... 
oder >1C3C 13 eingeben. 

Jetzt können Sie mit <X> und LIST den Effekt sehen: 
Die Sternchen aus Zeile 120 und die Zeilen 130/140 werden 
wieder von links oben geLISTet. Wenn Sie das Überschrei¬ 
ben sehen wollen, geben Sie folgenden Basic-Befehl ein: 
SCNCLR:LIST 

Der Befehl SCNCLR bewirkt, daß der Bildschirm ge¬ 
löscht und der Cursor in die HOME-Position gebracht wird. 
Bei einem längeren mit HOME-Codes manipulierten Pro¬ 
gramm ist dieser SCNCLR-Befehl nicht nötig, da aufgrund 
des Scrollings (Abrollen des Bildschirms) früher oder spä¬ 
ter die Ausgabe oben ankommt (weil weiter unten ausgege¬ 
bene Zeilen hoch-gescrollt werden). 

Das akustische Klingelzeichen 


Aufgrund des Steuerzeichens für das Klingelzeichen 
(ASCII-Code: $07= #7, drücken Sie einmal auf 
< CONTROL+G >, damit Sie es hören) können wir neben 
Farbe, Ordnung und Chaos sogar Soundeffekte ins Listing 
integrieren. Zwar sind diese recht bescheiden - ein einzi¬ 
ges Tonsignal steht uns nur zur Verfügung -, aber ganz gut 
geeignet, um zum Beispiel sich selbst auf eine bestimmte 
Stelle im Listing aufmerksam zu machen. 
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Man muß im Grunde nur den Code $07 (#7) in einer 
REM-Zeile einbauen. Hierbei sind drei Dinge zu beachten: 

Wenn der Code in Anführungszeichen steht, wird er - wie 
alle Steuerzeichen außer CR - unterdrückt. 

Die Klingelzeichen-Codes sollten nicht zu kurzaufeinan- 
derfolgen, weil es sonst sein kann, daß das eine Klingelzei¬ 
chen noch verklingt, während das andere beginnen soll. 
Dies hätte zur Folge, daß das Klingelzeichen nicht unbe¬ 
dingt erfolgt. 

Das akustische Klingelzeichen darf nicht vorher durch 
<ESC + H> verboten worden sein. Dies kann man da¬ 
durch umgehen, daß im Listing die Sequenz < ESC + G >, 
die das Klingelzeichen wieder zuläßt, ausgegeben wird. 
Damit werden wir uns noch in diesem Abschnitt - allerdings 
an späterer Stelle - befassen. 

Da der erste Punkt ohnehin für fast alle Steuerzeichen 
gilt, sind also nur zwei Punkte beim Klingelzeichen zusätz¬ 
lich zu beachten. Den dritten Punkt werden wir auch noch 
überflüssig werden lassen. 

Nun aber soll das Klingelzeichen im Programm Ver¬ 
suchskaninchen auf Kosten eines Sternchens»*« integriert 
werden: 

01C38 IC 78 00 8F 13 0 7 2A... 
oder einfach >1C3D 07 eingeben. 

Der Tabulator 


Um komfortable Einrückungen vorzunehmen, ist die 
<TAB>-Taste vorgesehen. Diese kann mit Hilfe von 
<CONTROL+l> leicht ersetzt werden. 

Der ASCII-Code ist $09 (#9), und anstelle des nächsten 
Sternchens soll dieser nun seinen Platz im Listing finden: 
>01C38 IC 78 00 8F13 07 09 2A... 

Wenn Sie jetzt das Programm LISTen lassen, können Sie 
sehen, daß die Sternchen eingerückt werden. 

Mit Hilfe der Tasten <SHIFT> + <CBM> (Commodo- 
re-Taste) kann man zwischen dem Text- und dem Grafik- 
Zeichensatz umschalten. Es gibt allerdings Situationen, in 
denen eine Umschaltung wüstes Chaos hervorrufen würde 
(zum Beispiel weil anstelle von Grafikzeichen nur Groß¬ 
buchstaben erscheinen oder umgekehrt), besteht auch ei¬ 
ne Möglichkeit, die Umschaltung zu unterbinden. Auch ein 
Entriegeln der Tastenkombination <SHIFT+CBM> ist 
möglich. Die ASCII-Codes dazu sind $0B (#11) zum Ver-, 
$0C (#12) zum Entriegeln. 

Probieren wir zunächst das Steuerzeichen $0C (zum 
Entriegeln) aus: 

>01C38 IC 78 00 8F 13 07 09 0C... 
oder nur >1C3F 0C eingeben. 

Verriegeln Sie nun die Umschaltung über <CON- 
TROL+K>. LISTen Sie dann (einfach <F7> drücken) und 
schalten Sie dann zwischen den Zeichensätzen um. Auf¬ 
grund des Steuerzeichens in der REM-Zeile 120 wird es 
nun gehen - quod erat demonstrandum. 

Sie stimmen mir sicher zu, daß ein Entriegeln von 
<SHIFT+CBM> in den meisten Fällen sinnlos ist. Viel 
wichtiger ist die Funktion des Verriegeins, die wir folgender¬ 
maßen - anstelle des $0C-Codes - einbauen wollen: 
>01C38 IC 78 00 8F 13 07 09 OB... 
oder nur >1C3F OB eingeben. 

Dieses Verbot des Zeichensatz-Umschaltens ist erst in 
Verbindung mit der programmierten Einstellung eines be¬ 
stimmten Zeichensatzes möglich. Da der ASCII-Code zum 
Umschalten auf Text-Zeichensatz größer als $80 ist, und 
das Umschalten des Zeichensatzes mittels Steuerzeichen 
nicht zu verhindern ist, werden wir auch einen solchen Co¬ 
de einbauen. 

Der Text-Zeichensatz wird über PRINT CHR$(14) einge¬ 


stellt. Das Steuerzeichen hat den ASCII-Code $0E (#14), 
und muß nur in die REM-Zeile eingebaut werden: 
>01C40 0E2A... 
oder >1C40 0E eingeben. 

Wenn Sie nun LIST eingeben, wird spätestens ab der 
Stelle, an der das $0E-Steuerzeichen steht, der Text in 
Klein-/Groß-Schrift ausgegeben. 

Mit Hilfe von Steuerzeichen können wir auch bewirken, 
daß der Text einer bestimmten Zeile - bis eben das nächste 
CR ausgegeben wird - in blinkender Form erscheint. Das 
entsprechende Steuerzeichen zum Einschalten des Blink- 
Modus für bestimmte Zeichen hat den ASCII-Code $0F 
(# 15). Diesen bringen wir auch in der REM-Zeile 120 unter: 
>01C40 0E 0F2A... 
oder >1C41 0F eingeben. 

Nun blinken die dem $0F-Code folgenden Sternchen 
beim LISTen. 

Auch die ASCII-Codes der CRSR-DOWN-Bewegung 
(Cursor runter) und der CRSR-RIGHT-Bewegung (Cursor 
nach rechts) liegen unter $80. Die Codes sind: 

CRSR DOWN = Cursor runter $11 = #17 
CRSR RIGHT = Cursor rechts $1D = #29 

Testen wir zunächst den CRSR-RIGHT-Code: 

>01C40 0E 0F1D2A... 
oder >1C42 ID eingeben. 

Jetzt wird vor den Sternchen einmal der CRSR-RIGHT- 
Code ausgeführt. 

Viel häufiger wird jedoch die Anwendung des CRSR- 
DOWN-Codes sein, weshalb wir unsere erste Manipulation 
- den CRSR-RIGHT-Code - überschreiben: 

>01C40 0E0FTL2A... 
oder >1C42 11 eingeben. 

Nun werden die Sternchen eine Zeile weiter unten aus¬ 
gegeben als vorher. 

Da durch eine Cursor-Bewegung nicht auf den Normal- 
Modus zurückgeschaltet wird, bleibt der Blink-Modus wei¬ 
terhin erhalten. 

Inverse Kommentare 


Um bestimmte Texte - vor allem Kommentare in REM- 
Zeilen - gut hervorzuheben, ist'die Invers-Darstellung sehr 
gut geeignet. Wir,wollen nun - auch wenn ein weiterer Stern 
dran glauben muß - den RVS-ON-Code (ASCII-Code: 
$12= #18) einbauen, damit der blinkende Text zudem in¬ 
vers abgebildet wird: 

>01C40 0E 0F11 12 2A... 
oder >1C43 12 eingeben. 

Wenn man bestimmte Kommentare zwecks besserer 
Lesbarkeit hervorheben möchte, empfiehlt es sich wirklich, 
diese invers erscheinen zu lassen. Am besten setzt man 
vor den Kommentar, der invers werden soll, bei der Eingabe 
überden Basic-Editorein Zeichen, das dann mit dem Code 
$12 überschrieben werden kann. 

Besonders interessant ist hierbei, daß auch beim Listen 
aufdenDruckerdie Invers-Darstellung berücksichtigt wird. 

In unserem Beispielprogramm wollen wir nun, daß an¬ 
stelle der Sternchen ein mehr oder weniger sinnvoller Text 
erscheint. Wir entscheiden uns für »REVERSER KOM¬ 
MENTAR !!« und wandeln diesen mit einem bereits vorge¬ 
stellten Trick in den entsprechenden ASCII-Code um. 

Wirgeben dazu »H 00 ’REVERSER KOMMENTAR!!« ein 
und finden dann die Lösung bei $0A80 mittels »M A80«. 

Nun setzen wir die Lösung an der richtigen Stelle - bei 
$1C44 - ein: 

> 1C44 52 45 56 45 52 53 45 52 20 4B 4F 4D 4D 45 4E 54 
41 52 20 21 21 

Geben Sie diesen Befehl unverändert ein. 
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Nun haben wir einen ersten Satz von Änderungen durch¬ 
geführt. Am besten speichern Sie das Programm in diesem 
Zustand; löschen Sie aber die alte Version nicht. 

Von den Steuerzeichen unter $80 haben wir bis auf zwei 
- DEL und ESC - schon alle behandelt und die meisten ins 
Programm Versuchskaninchen eingebaut. Nun befassen 
wir uns noch mit den fehlenden Steuerzeichen DEL und 
ESC, die wirklich interessante Manipulationen erlauben. 
Zunächst soll uns DEL interessieren. 

DELETE-Zeichen löschen 


Mit Hilfe der Taste < DEL/INS> kann man das letzte aus¬ 
gegebene Zeichen löschen. Das Steuerzeichen DEL (DEL 
als Abkürzung für DELETE, englisch »löschen«) arbeitet 
außer im »insert mode« in jedem Modus - also auch im 
Anführungszeichen-Modus. 

Eine häufige Anwendung von DEL (ASCII-Code: 
$14= #20) ist es, daß man Teile des Listings durch eine 
REM-Zeile voller DEL-Codes unmittelbar nach dem Ausge¬ 
ben wieder löscht, so daß der Eindruck entsteht, es wäre 
kein Text ausgegeben worden. 

Wir wollen nun testhalber bewirken, daß beim LISTen von 
Zeile 120 der Anfang »120 REM« unmittelbar nach dem LI¬ 
STen gelöscht wird. Wir benötigen sieben DEL-Codes, da 
beim LISTen sieben Zeichen (120 REM) ausgegeben wer¬ 
den. Daß REM als Ein-Byte-Wert (Token) abgelegt wird, ist 
in diesem Fall uninteressant, da wir drei DEL-Codes - REM 

- benötigen, denn die Tokens werden ja vor dem LISTen in 
den Klartext umgewandelt. 

Für die sieben DEL-Codes müssen wir auf ein paar Steu¬ 
erzeichen verzichten: 

>01C3C 14 14 14 14 14 14 14 12 52... 

oder >1C3C 14141414141414eingeben. Noch einfacher 

einzugeben ist der Fill-Befehl »F 1C3C 1C42 14«. 

Wenn Sie jetzt »LIST 120« eingeben, sehen Sie folgen¬ 
des in Inversdarstellung: 

REVERSER KOMMENTAR !! 

Der Text 120 REM wird nämlich durch die sieben DEL- 
Codes sofort wieder gelöscht. Wenn man genau hinsieht, 
kann man dies sogar erkennen (wenn auch nur schlecht, da 
das Löschen doch ziemlich schnell geht). Besonders lang¬ 
sam geht es, wenn man im Slow-Modus auf 80-Zeichen- 
Darstellung schaltet und dann LISTen läßt. In diesem Fall 
kann man fast jedes Zeichen erkennen. 

Um den Übergang zum Rest dieses Abschnitts zu fin¬ 
den, laden Sie bitte noch einmal die vor dem Einfügen der 
DEL-Codes gespeicherte Version - oder die Anfangsver¬ 
sion, wenn Sie vor dem Einsetzen der DELs das Speichern 
vergessen haben. Geben Sie dann >1C3C 1B 44 ein und 
LISTen Sie. Jetzt geht das Löschen sehr schnell und wir 
müssen nur zwei - statt sieben - Codes dafür verwenden. 

Wir haben nämlich auf eine ESC-Anweisung zurückge¬ 
griffen, die eine ganze Bildschirmzeile löscht: <ESC + 
D>. <ESC> ist ein mächtiges Werkzeug. 

ESC ist die Abkürzung für ESCAPE (englisch »fliehen«). 
Mit Hilfe der <ESC>-Taste (links oben an der 
C128-Tastatur) kann man einige Funktionen anfordern (so¬ 
genannte Flucht- oder ESCAPE-Sequenzen), die im 
C128-Handbuch aufgeführt sind. Diese erlauben unter an¬ 
derem 

- die Definition von Bildschirmfenstern 

- das ErlaubenA/erbieten des Klingelzeichens 

- Einfügen und Löschen von Bildschirmzeilen 

- Scrolling nach oben und unten 

- Cursor-Bewegung an Zeilenanfang oder Zeilenende 

- Löschen eines Teils einer Zeile 

- Löschen des Bildschirms ab Cursor-Position 
und vieles andere mehr. 
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Der ESC-Code, der vom aktuellen Eingabemodus völlig 
unabhängig ist, arbeitet folgendermaßen: 

Sobald ein ESC (ASCII-Code: $1B= #27) ausgelöst wird 
- zum Beispiel durch Drücken der ESC-Taste -, merkt sich 
dies der Computer. Das nächste ausgegebene Zeichen 
wird dann nicht ausgegeben, sondern als ESC-Anweisung 
behandelt. Diese Anweisungen werden durch einige Buch¬ 
staben und den Klammeraffen (@) bezeichnet: 

A = AUTO INSERT MODE ON; automatisches Einfügen 
einschalten 

B = BOTTOM; rechte untere Ecke des Windows setzen 
C = CLEAR AUTO INSERT MODE; AUTO INSERT MO¬ 
DE ausschalten 

D = DELETE; aktuelle Bildschirmzeile löschen 
E = END CURSOR FLASH; Cursor-Blinken beenden 
F = FLASH ON; Cursor-Blinken einschalten 
G = <CONTROL+G> erlauben 
H = <CONTROL+G> verbieten 
I = INSERT; Bildschirmzeile einfügen 
J = JUMP TO BEGINNING; Cursor an Anfang der Zeile 
setzen 

K = Cursor hinter letztes Zeichen der Zeile setzen 
L = LET SCROLL; Scrolling zulassen 
M = Scrolling verhindern 

N = NORMAL; normale Bildschirmdarstellung (nicht in¬ 
vers) 

O = OFF; alle Modi abschalten (Blinken, Unterstreichen, 
Invers) 

P = clear until POSITION; bis Cursor-Position löschen 
Q = von Cursor-Position an aktuelle Zeile löschen 
R = REVERS; Revers-Darstellung für gesamten Bild¬ 
schirm 

S = SWITCH ON; Blockdarstellung für den Cursor ein- 

n Lin ^i£,b alten 

T = iuP; linke obere Ecke des Windows setzen 
U = Strichdarstellung für Cursor 

V = Scrolling nach oben 
W = Scrolling nach unten 

X = zwischen 40- und 80-Zeichen-Darstellung umschal¬ 
ten 

Y = voreingestellte Tabulatorstops nehmen 
Z = voreingestellte Tabulatorstops löschen 
@ = Bildschirm ab Cursor-Position löschen 

Die Befehle N,R und U funktionieren nur im 80-Zeichen- 
Modus. 

Wie Sie sofort sehen können, kommt eine ungeheure 
Vielfalt an Manipulationsmöglichkeiten auf uns zu. 

Der große Vorteil des ESC-Befehls ist, daß er mit $1B 
(#27) einen ASCII-Code hat, der kleiner als $80 ist. Wenn 
wir nun einen ESC-Befehl im Speicher ablegen wollen, be¬ 
nötigen wir immer nur zwei Byte: 

1B und ASCII-Code des Befehls (zum Beispiel $41 für A) 

Die ESC-Befehle 


Wir wollen nun das Beispielprogramm Versuchskaninchen 
(bitte laden Sie jetzt die ursprüngliche Version ohne Mani¬ 
pulationen) mit ESC-Befehlen (auch »ESC-Sequenzen« ge¬ 
nannt) bearbeiten. 

Als erstes sorgen wir dafür, daß der Kommentar in Zeile 
100 ohne das davorstehende »100 REM« erscheint. Wir 
überschreiben zu diesem Zweck das Leerzeichen und das 
Anführungszeichen nach dem REM mit der Sequenz ESC- 
D (DELETE aktuelle Bildschirmzeile löschen): 

>01C00 00 24 IC 64 00 8F1B44 50 52 4F... 
oder einfach >1C06 1B 44 eingeben. 

$1B ist der ASCII-Code für ESC, $44 derjenige für die 
ESC-Anweisung D (DELETE). 
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Nun führen wir noch einige Manipulationen durch, zu de¬ 
nen nicht viel zu sagen ist. 

Als erstes soll der Bildschirm ab Cursor-Position beim Li¬ 
sten von Zeile 120 gelöscht werden: 

>01C38 IC 78 00 8F1B40 2A 2A... 
oder >1C3C 1B 40 eingeben. 

1B 40 entspricht ESC-@. 

Als zweites soll die entsprechende Bildschirmzeile bis 
zur Cursor-Position gelöscht werden (damit das 120 REM 
wegfällt): 

>01C38 IC 78 00 8F 1B 40 1B 50 2A... 
oder >1C3E 1B 50 eingeben. 

1B 50 entspricht ESC-P. 

Ferner soll während des LISTens von Zeile 120 eine Um¬ 
schaltung der Zeichendarstellung (40- oder 80 Zeichen pro 
Zeile) erfolgen. Dadurch wird dann der Rest des Listings 
auf einen anderen Monitor ausgegeben als der Beginn, 
was nicht zur Übersichtlichkeit des Listings beiträgt. Wenn 
man in längeren Programmen alle paar Zeilen umschalten 
läßt, wird das Listing wirklich unübersichtlich - allerdings 
existiert noch der Ausweg des LISTens auf den Drucker. 
Nun die entsprechende Änderung am Programm Ver¬ 
suchskaninchen: 

>01C40 1B58 2A2A... 
oder >1C40 1B 58 eingeben. 

1B 58 entspricht ESC-X. 

Nur als Spielerei - damit es auch einmal besprochen wird 
- soll noch der Bildschirm nach oben gescrollt werden: 
>01C40 1B 58 1B56 2A 2A... 
oder >1C42 1B 56 eingeben. 

1B 56 entspricht ESC-V. 

Wenn Sie statt des Scrollings nach oben lieber nach un¬ 
ten scrollen wollen, ist folgende Änderung nötig (anstelle 
von ESC-V): 

>01C40 1B58 1B57 2A2A... 
oder >1C42 1B 57 eingeben. 

1B 57 entspricht ESC-W. 

Außerdem sollen oberhalb der aktuellen Bildschirmzeile 
zwei Zeilen eingefügt werden: 

>01C40 1B58 1B57 1B49 1B49 2A2A... 
oder einfach >1C44 1B 49 1B 49 eingeben. 

1B 49 entspricht ESC-I. 

Ganz nebenbei wollen wir auch noch alle Zusatz-Modi 
(Blinken, Invers, Unterstreichen) abstellen: 

>01C48 1B4F2A2A... 
oder >1C48 1B 4F eingeben. 

1B 4F entspricht ESC-O. 

Dafür soll noch der ganze 80-Zeichen-Bildschirm, auf 
dem aufgrund der Sequenz ESC-X am Anfang der Zeile 120 
sicher ein Teil des Listings steht, invertiert werden, wobei 
zum Funktionieren der entsprechenden ESC-Sequenz 
nicht einmal der 80-Zeichen-Modus angeschaltet sein 
muß: 

>01C48 1B4F 1B52 2A 2A... 
oder >1C4A 1B 52 eingeben. 

1B 52 entspricht ESC-R. 

Zwischendrin lassen wir das nächste Sternchen weiter¬ 
existieren (damit auch ein Sternchen »*« ausgegeben 
wird). Dann aber stellen wir den Cursor auf Festanzeige 
(das heißt, wir stellen das Cursor-Blinken ab): 

>01C48 1B 4F 1B 52 2A 1B 45 2A 2A 2A... 
oder >1C4D 1B 45 eingeben. 

1B 45 entspricht ESC-E. Das Gegenstück wäre 1B 46 
(ESC-F). 

Vorhin haben wir das akustische Klingelzeichen (ASCII- 
Code: $07= #7) verwendet. Dabei wurde der Hinweis ge¬ 
geben, daß durch eine ESC-Sequenz, nämlich ESC-H, die¬ 
ses Klingelzeichen unterbunden werden kann. Unter Zuhil¬ 
fenahme einer anderen ESC-Sequenz läßt sich ein solches 


eventuell erfolgtes Unterbinden aber leicht wieder rück¬ 
gängig machen: 

>01C4D 1B 45 1B 47 2A 2A... 
oder >1C4F 1B 47 eingeben. 

1B 47 entspricht ESC-G. Um die Wirkung davon zu te¬ 
sten, bietet es sich an, direkt hinter der ESC-Sequenz ein 
Klingelzeichen einzubauen: 

>01C4D 1B45 1B47 07 2A2A... 
oder >1C51 07 eingeben. 

$07 ist der ASCI I-Code des akustischen Klingelzeichens. 

Zu guter Letzt definieren wir über die Sequenz ESC-T- 
TAB-ESC-B ein Window von wenigen Spalten Breite und 
nur einer Zeile Länge: 

>01C50 47 07 1B 54 09 1B 42 2A 2A... 
oder >1C52 1B 54 09 1B 42 eingeben. 

1B 54 entspricht ESC-T, 09 entspricht TAB und 1B 42 ent¬ 
spricht B. 

Nun haben wir einige ESC-Sequenzen, mit denen sich 
viel anstellen läßt, ausprobiert. 

ASCII-Codes über $7f einbauen 


Nachdem wir schon im letzten Abschnitt gesehen haben, 
was sich mit den ASCII-Codes kleiner als $80 alles anfan¬ 
gen läßt, wollen wir endlich auch die ASCII-Codes größer 
$7F einsetzen. 

Zunächst eine kurze Aufstellung (Bild 26) der für uns ver¬ 
wendbaren Steuerzeichen, deren ASCII-Codes über $7F 
liegen: 


Steuerzeichen 


ASCII-Code 

oräi iye $81 

= 

#129 

Unterstreichen aus $82 

= 

#130 

<SHIFT+RETURN> $8D 

= 

#141 

Groß-/Grafik-Schrift ein $8E 

= 

#142 

Blinken aus $8F 

= 

#143 

schwarz $90 

= 

#144 

CRSR UP 

SS 

Cursor rauf 

$91 

= 

#145 

RVS OFF 

= 

Invers aus 

$92 

= 

#146 

CLR 

= 

Bildschirm löschen 

$93 

= 

#147 

INS 

B 

Zeichen einfügen 

$94 

= 

#148 

braun $95 

= 

#149 

hellrot $96 

= 

#150 

grau 1 $97 

= 

#151 

grau 2 $98 

= 

#152 

hellgrün $99 

= 

#153 

hellblau $9A 

B 

#154 

grau 3 $9B 

b 

#155 

purpur $9C 

SS 

#156 

CRSR LEFT 

= 

Cursor links 

$9D 

= 

#157 

gelb $9E 

= 

#158 

türkis $9F 

= 

#159 


Bild 26. Kurzübersicht der ASCII-Codes über Adresse $7F 


Laden Sie nun noch einmal das Programm Versuchska¬ 
ninchen, und wir versuchen, den ASCII-Code für »Groß-/ 
Grafik-Schrift ein« zu integrieren: 

>01C00 00 24 IC 64 00 8F 8E 22 50... 

oder >1C06 8E eingeben. Natürlich hat der Monitor den 

ASCII-Code korrekt untergebracht, aber beim LISTen wird 
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nicht auf Groß-/Grafik-Schrift umgeschaltet, sondern statt 
dessen erscheint der Basic-Befehl RETURN, der als Token 
den Wert $8E hat. 

Unser Problem ist also, daß der Interpreter beim LISTen 
unsere Steuerzeichen, sofern diese größer als $7F sind, für 
Token hält und somit decodiert - daher der Klartext RE¬ 
TURN. 

Wenn wir unsere Codes in Anführungszeichen setzen, 
erscheint aber ein inverses Zeichen als Symbol für das 
Steuerzeichen. Auch damit können wir nicht zufrieden 
sein. Dennoch gibt es einen Ausweg, der mit viel Tüftelei 
entwickelt wurde. 

Der Interpreter und die Ausgaberoutine des Betriebssy¬ 
stems haben beide einen »quote mode« (Anführungszei¬ 
chen-Modus), wobei der Interpreter die Zeichen unverän¬ 
dert ans Betriebssystem übergibt - auch Werte größer $7F, 
sofern sie in Anführungszeichen stehen. 

Die einzige Lücke ist die, daß beim Betriebssystem der 
»quote mode« durch das Steuerzeichen CR (auch 
<SHIFT+RETURN >) verlassen wird, während der 
Anführungszeichen-Modus beim Interpreter lediglich von 
der Anzahl der offenen Anführungszeichen abhängt. 

Dies machen wir uns mit Hilfe der Steuerzeichense¬ 
quenz $22 OD zunutze. Wenn diese beiden Zeichen - in der 
genannten Reihenfolge - ausgegeben werden, so stellt das 
Byte $22 sowohl das Betriebssystem als auch den Basic- 
Interpreter in den Anführungszeichen-Modus. Das $0D- 
Byte bewirkt dann, daß das Betriebssystem den »quote mo¬ 
de« verläßt und somit alle Steuerzeichen, die seine Ausga¬ 
beroutine erhält, tatsächlich ausgibt (und nicht nur ein in¬ 
verses Zeichen als Symbol für ein Steuerzeichen); die 
LIST-Routine des Basic-Interpreters kümmert sich um das 
$0D-Byte jedoch nicht und wähnt sich nach wie vor im An¬ 
führungszeichen-Modus. Ahnen Sie schon, welche Auswir¬ 
kungen das haben kann? 

Nun geschieht folgendes, wenn ein ASCII-Code wie $93 
ausgegeben wird: 

- Der Interpreter ist im »quote mode« und führt keine Deco¬ 
dierung durch, sondern sendet das Zeichen unverändert 
an die Ausgaberoutine des Betriebssystems. Würde dieses 
auch im »quote mode« stehen - wovon die LIST-Routine 
fälschlicherweise ausgeht -, so würde ein eventuelles 
Steuerzeichen (wie $93 = CLR = Bildschirm-Löschen) 
nicht ausgeführt, sondern durch ein inverses Zeichen dar¬ 
gestellt (bei $93 ein inverses Herz). 


Beispiele 


- Die Ausgaberoutine des Betriebssystems erhält das Steu¬ 
erzeichen und führt dieses aus, da sie sich seit dem $0D- 
Byte (CR) im Normal-Modus befindet. Dies hat der Interpre¬ 
ter aber nicht feststellen können. 

Zugegeben, der Trick ist ziemlich schwer zu verstehen, 
aber dafür ist die Anwendung wirklich kein Problem. Halten 
wir einfach die Wirkung fest: 

Nach der Sequenz $22 OD werden alle Steuerzeichen, 
die darauf folgen, ausgeführt und weder als Token aufge¬ 
faßt (was eine Umwandlung in den Klartext zur Folge hätte), 
noch erscheint ein inverses Zeichen als Symbol für das 
Steuerzeichen. 

Probieren wir es aus: 

>01C38 IC 78 00 8F 22 OD 93 2A 2A... 
oder einfach >1C3C 22 OD 93 eingeben. 

$93 ist der ASCII-Code für CLR/HOME (Bildschirm lö¬ 
schen). Nun wird beim LISTen von Zeile 120 der Bildschirm 
gelöscht. Wenn wir aber auch nur einen Teil der Sequenz 
22 OD weglassen, so erscheint entweder der Basic-Befehl 


LOAD (wenn das 22 fehlt) oder ein inverses Herz (wenn das 
OD fehlt, aber das 22 vorhanden ist). 

Dies war ein Beispiel für die Anwendung der Sequenz 
22 OD. 

Wir wollen jedoch fortan die Sequenz 22 14 OD verwen¬ 
den. Das eingefügte 14 ist der ASCII-Code für DEL (DELE- 
TE) und löscht unverzüglich das Anführungszeichen. In 
diesem Falle (Bildschirm löschen folgt unmittelbar danach) 
ist es zwar unwichtig, aber wenn nicht gerade ein solches 
Zeichen folgt, sollte man darauf achten, daß das Anfüh¬ 
rungszeichen verschwindet: 

>01C38 IC 78 00 8F 22 14 0D 93 2A... 
oder >1C3C 22 14 0D 93 eingeben. 

Statt der Sequenz 2214 0D ist auch 221B 44 OD möglich, 
wenn nicht nur das Anführungszeichen, sondern die ge¬ 
samte Bildschirmzeile gelöscht werden soll. 

Nun wollen wir aber außer dem 93 auch noch weitere 
Steuerzeichen einbauen, um ein wenig Übung zu bekom¬ 
men, damit Sie auch andere Programme als unser Ver¬ 
suchskaninchen manipulieren können. Zwar haben wir alle 
möglichen Codes genannt, besprechen werden wir jedoch 
nur die wichtigsten. 

Umschalten auf 
Groß-/Grafik-Sdirift 


Damit beim LISTen der Groß-/Grafik-Zeichensatz einge¬ 
stellt wird, bauen wir das entsprechende Steuerzeichen 
ein: 

>01C40 8E2A2A2A... 
oder >1C40 8E eingeben. 

Nun wollen wir noch das Umschalten mittels 
<SHIFT i -CBM> verhindern: 

>01C4U 8E0B2A2A... 

oder > 1C41 OB eingeben. Daran können wir auch eindeu¬ 
tig erkennen, daß Steuerzeichen mit ASCII-Codes größer 
$80 weiterhin funktionsfähig bleiben (damit wirklich kein 
Mißverständnis auftritt). 

Als uns die Sequenz 22 14 0D noch nicht bekannt war, 
konnten wir nur 4 von 16 Farben über ASCII-Codes einbau¬ 
en. Im Bild 27 sind die restlichen 12 Codes enthalten: 


Farbe 


ASCII- 

Code 

orange $81 

— 

#129 

schwarz $90 

SS 

#144 

braun $95 

= 

#149 

hellrot $96 

= 

#150 

grau 1 $97 

= 

#151 

grau 2 $98 

= 

#152 

hellgrün $99 

= 

#153 

hellblau $9A 

SS 

#154 

grau 3 $9B 

= 

#155 

purpur $9C 

SS 

#156 

gelb $9E 

= 

#158 

türkis $9F 

= 

#159 


Bild 27. Die restlichen Farben 


Jeden dieser zwölf Codes auszuprobieren würde, nichts 
bringen. Wir arbeiten mit einigen wenigen Beispielfarben, 
denn für eine andere Farbe ist nur ein anderer - obiger Ta¬ 
belle zu entnehmender - Code zu verwenden. 

Wir setzen jetzt den Code für gelb, nämlich $9E, ein: 
>01C40 8E 0B9E2A 2A... 
oder >1C42 9E. 

An späterer Stelle setzen wir noch die Codes für braun 
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und türkis ein, wo wir dann nicht mehr näher darauf einge- 
hen müssen. 

Nur exemplarisch wollen wir den Code für <SHIFT+RE- 
TURN > verwenden, denn der CR-Code $0D ist viel geeig¬ 
neter (da er zwar dieselbe Wirkung bei Ausgaben hat, aber 
aufgrund der Tatsache, daß der ASCII-Code $OD kleiner als 
$80 ist, leichter eingesetzt werden kann): 

>01C40 8E OB 9E 8D 8D 2A 2A... 
oder >1C43 8D 8D eingeben. 

Wie gesagt: $8D (SHIFT/RETURN) geht nur nach der 22 
14 OD-Sequenz, $0D (CR) arbeitet auch ohne diese und ist 
leichter zu handhaben. 

Während der ASCII-Code von RVS ON (inverse Darstel¬ 
lung ein) bisher verwendbar war, da er mit einem Wert von 
$12 kleiner als $80 ist, können wir erst aufgrund der Se¬ 
quenz 22 14 OD auf den ASCII-Code von RVS OFF zurück¬ 
greifen. 

Natürlich ist der RVS OFF-Code erst sinnvoll, falls er 
dann erfolgt, wenn gerade die reverse Darstellung einge¬ 
schaltet ist. Daher wollen wir bewirken, daß ein Stern revers 
und der nächste unmittelbar danach nicht-invers ausgege¬ 
ben wird: 

>01C44 8D 12 2A 92 2A 2A 2A... 

oder einfach >1C45 12 und >1C47 92 eingeben. 

$12 ist der RVS ON-, $92 = #146 der RVS OFF-Code. 

Als kleine Erweiterung stellen wir nach der RVS-Spielerei 
die aktuelle Zeichenfarbe auf braun: 

>01C44 8D 12 2A92 2A95 2A2A... 

Bei den Codes unter $80 haben wir den FLASH ON-Code 
ausdrücklich erwähnt und eingebaut. Er hat den ASCII- 
Code $0F und bewirkt, daß die danach ausgegebenen Zei¬ 
chen blinken - allerdings nur bei Verwendung des 
80-Zeichen-Bildschirms. 

Das Steuerzeichen zum Ausschalten dieses Blinkens 
bewirkt nicht, daß das Blinken aufhört, sondern nur, daß die 
danach ausgegebenen Zeichen nicht mehr blinken. 

Wir wollen nun einen blinkenden Stern und einen darauf¬ 
folgenden, der nicht blinkt, ausgeben lassen: 

> 01C48 2A 95 OF 2A 8F 2A 2A 2A... 
oder >1C4A OF 2A 8F 2A eingeben. 

$8F ist der ASCII-Code von FLASH OFF. 

Ähnlich wie bei den blinkenden Zeichen ist es mit den 
ASCII-Codes $02 (Unterstreichen bei 80-Zeichen-Modus 
ein) und $82 (Unterstreichen aus, geht auch nur bei 
80-Zeichen-Bildschirm). 

Unterstrichene und nicht-unterstrichene 
Zeichen in einer Zeile 


Wir lassen nun einen unterstrichenen und einen nicht- 
unterstrichenen Stern »*« ausgeben: 

> 01C4D 2A 02 2A 82 2A 2A 2A... 
oder >1C4E 02 2A 82 2A eingeben. 

Außerdem ist wieder einmal ein Farbwechsel fällig: 
>01C4D 2A 02 2A 82 2A 9F 2A... 

$9F ist der ASCII-Code für türkis. 

Damit haben wir einige interessante Manipulationen 
durchgeführt. Die Anwendung von diesen bleibt Ihrer 
Phantasie überlassen, denn sie ist so vielfältig, daß wir nur 
die wichtigsten Aspekte besprechen können. Außerdem ist 
das Prinzip immer wiederkehrend: anstelle eines Füllzei¬ 
chens (Sternchen) wird ein ASCII-Code eingesetzt. Mit ein 
wenig Experimentieren kommt man ziemlich weit und kann 
seine Listings wirklich interessant gestalten. 

Die ASCII-Codes im Listing sind natürlich vor allem für 
Basic-Programme geeignet. Aber auch bei Maschinenpro¬ 
grammen, die eine Basic-Zeile mit einem SYS-Befehl ha¬ 
ben, damit sie über den Basic-Befehl RUN gestartet wer¬ 


den können, kann man mit den ASCII-Codes einiges errei¬ 
chen. 

So kommen unter anderem folgende Anwendungen, die 
wir auch besprechen wollen, in Frage: 

- Kommentar wie Copyright, Hinweise oder ähnliches 
ausgeben 

- SYS-Befehl nach LISTen wieder löschen 

- Cursor auf RUN positionieren, damit der Start beque¬ 
mer ist 

Als Beispielzeile für unsere Manipulationen verwenden 
wir 

2000 BANK 15: SYS DEC( "4lBA") :REM ''**#»##*###" 

In der REM-Zeile stehen übrigens zehn Sternchen. 

An der über diese Zeile angesprungenen Adresse steht 
ein RTS-Befehl, Sie müssen also nicht fürchten, daß ein 
versehentlicher Programmstart zum Absturz führt. 

Anwendung der ASCII-Codes auf Maschi¬ 
nenprogramme mit einer Basic-Zeile 


Als erstes wollen wir, daß anstelle der Zeile nur der Hinweis 
*>(C) 128« ausgegeben wird. Dazu suchen wir zunächst das 
Anführungszeichen und die Sternchen über 
H 1C01 5000 ’"***.*..**. 
und erhalten als Wert 01C19. 

Jetzt speichern Sie bitte unsere exemplarische Basic- 
Sys-Zeile, denn wir wollen eine kleine Manipulation durch¬ 
führen, die zunächst das Listing der Zeile löscht und dann 
den Text »(C) 128« ausgibt: 

>01C19 1B442228432931.323822070A 

Außerdem wird ein Klingelzeichen erzeugt und eine 
Leerz°ile eingefügt (durch LF). 1B 44 ist ESC-D, dann 
kommt der Text »(C) 128« und schließlich 07 (das Klingelzei¬ 
chen) und OA (LF). 

Als nächstes wollen wir noch, daß beim LISTen anstelle 
der Zeile der RUN-Befehl erscheint und auf diesem nach 
dem Listen der Cursor steht, damit der Anwender nur noch 
auf < RETURN > drücken muß, um das Programm zu star¬ 
ten. Dazu löschen wir die Zeile, geben zweimal CR aus, 
dann den Text RUN und fahren schließlich den Cursor drei¬ 
mal nach oben, damit auch nach der Ausgabe von »REA¬ 
DY.« und einem CR nach dem Listen der Cursor auf dem 
RUN steht. Da wir den CRSR UP-Code brauchen, muß zu¬ 
dem irgendwo die Sequenz 22 14 OD, die wir hier zum Lö¬ 
schen der ganzen Zeile durch 22 1B 44 OD ersetzen, ste¬ 
hen: 

>01C19 22 1B 44 OD OD OD 52 5§ 4E 91 91_ 91 
Probieren Sie jetzt einmal den LIST-Befehl aus. 

Durch eine solche Änderung kann man es vor allem dem 
Anfänger leichtmachen. 

Natürlich ist es auch - sofern man vorher genügend Füll¬ 
zeichen eingegeben hat - möglich, andere Befehle als 
RUN vorzubereiten. 

Damit wären wir am Ende unseres Kurses angekommen. 
Wir hoffen, es hat Ihnen Spaß gemacht und neue Möglich¬ 
keiten eröffnet. Ganz abgesehen davon, daß wir nun den 
Monitor wirklich beherrschen und für Basic- und Maschi¬ 
nenprogramme bestens einsetzen können, haben wir uns 
auch nebenbei elementare Kenntnisse angeeignet: Sie 
können nun mit den wichtigsten Zahlensystemen umge¬ 
hen, wissen über die Speicherstruktur Bescheid und ken¬ 
nen den Aufbau eines Basic-Programms im Speicher. 

Wenn Sie jetzt andere Literatur lesen und vor allem ver¬ 
stehen wollen, so fällt es Ihnen auf jeden Fall leichter. Auch 
wenn Sie vorher nicht mit Maschinensprache weit gekom¬ 
men sind, sollten Sie es jetzt noch einmal versuchen; mitt¬ 
lerweile geht es sicherlich viel besser. (F. Müller/ag) 
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TIPS&TRICKS 


O ft sind es nur Kleinigkeiten, die die Arbeit mit dem 
Computer erheblich erleichtern. Manchmal hilft ein 
kleiner Trick bei der Lösung eines Problems, mit dem 
man sich schon längere Zeit auseinandergesetzt hat. Wir 
haben daher die besten Tips & Tricks, die uns seit Erschei¬ 
nen des letzten C 128-Sonderhefts erreicht haben, auf den 
folgenden Seiten für Sie zusammengestellt. 

Wenn Sie bei Ihrem C128 selbst auf Entdeckungsreise 
gehen und dabei auf den einen oder anderen Hinweis sto¬ 
ßen, schreiben Sie uns. 


1 . 


ASCII-DIN und zurück 


Wie oft hat man schon nach einer Möglichkeit gesucht, den 
C128 per Programm auf einen bestimmten Zeichensatz 
umzustellen? Ein paar POKE-Befehle lösen dieses Pro¬ 
blem relativ einfach. 

Zuerst wird mit 
POKE 0,111 

die ASCII/DIN-Taste gesperrt. Dieser POKE-Befehl sorgt 
dafür, daß der Computer nicht mehr auf diese Taste rea¬ 
giert. Mit 

POKE 1,51 

wird dann auf den DIN-Zeichensatz umgeschaltet. Die 
amerikanische Tastaturbelegung läßt sich mit 

POKE 1,115 

wieder aktivieren. Nach einem 

POKE 0,47 

wird die ASCII/DIN-Taste wieder eingeschaltet. Da wir gera¬ 
de bei den POKE-Befehlen sind, sei noch verraten, wie 
man das Fragezeichen bei dem INPUT-Befehl entfernt: 

POKE 21,2 

Direkt nach dem Input-Befehl sollte durch 

POKE 21,0 



fang des Namens eine Zahl zwischen 1 und 10 besitzen. 
Die Grafik darf keine Farbinformationen enthalten. Sollte 
dies doch der Fall sein, so ist Zeile 60 so einzugeben: 

60 BL0AD (A$),P 7168 

Viel Spaß mit dieser Mini-Diashow. (Ralf Kitzmann/ef) 


10 GRAPHIC 1,1 

20 FORI=7168T08168:POKEI,0*16*1:NEXTI 
30 X = X +1:IFX>11THENX=1 

40 1FX<10THENA*=RIGHT*(STR*(X>,1>+"»":G0T060 
50 A* = R1GHT*(STR*(X>,2W»" 

60 BLOAD C A*),P8192 
70 GETKEY C* 

80 G0T03O 

Listing 1. Die »Mini-Diashow« in acht Zeilen 


<s 64’er 


4. 


Einfaches laden 


der alte Zustand wiederhergestellt werden. Mit diesen 
POKE-Befehlen können Sie Ihre Programme noch profes¬ 
sioneller gestalten. (Uwe Kepper/ef) 


In der Ausgabe 12/88 des 64’er-Magazins wurde beschrie¬ 
ben, wie Programme einfach geladen werden können: Man 
ruft das Inhaltsverzeichnis auf und geht mit dem Cursor 
in die Zeile, in der der Programmname steht. Dann wird 
D LOAD und <CTRLK>,3x <DEL> eingegeben und mit 
<"M± i CRN > bestätigt, um das Programm zu laden. Eine 


2 . 


POKEs zur Grafik 


andere Möglichkeit ist die Kombination »DLOAD, 3 x 
<TAB >:« und < RETURN >. Wozu gibt's aber Funktions¬ 
tasten? Die Taste <F2> besitzt vom Betriebssystem her 
den Befehl »DLOAD"«. Sinnvollerweise belegt man diese 
Taste dann mit 

KEY 2," DLOAD" +CHR$(9)+CHR$(9)+CHR$(9)+" +CHR$ 
(13) 


Wenn eigene Zeichen definiert werden, ist es oft ein Pro¬ 
blem, diese einzuschalten. Wenn diese Zeichen im Spei¬ 
cher ab $3000 (dezimal 12288) liegen, läßt sich mit 
POKE 2604,(PEEK(2604)AND240)0R12 
auf diesen Zeichensatz umschalten. 

Mit einem einfachen Trick kann man dafür sorgen, daß 
der Computer schneller läuft. Dazu wird der Computer ein¬ 
fach auf 60 Hz geschaltet: 

POKE 2563,0 

Mit einem 
POKE 2563,255 


damit ein Programm mit einem Tastendruck sofort geladen 
werden kann. Soll das Programm direkt nach dem Laden 
gestartet werden, belegt man die Taste <F6> auch um: 

KEY 6," RUN" +CHR$(9)+CHR$(9)+CHR$(9)+" :" +CHR$ 
(13) 

Um die Tastenbelegung immer zur Verfügung zu haben, 
empfiehlt es sich, die Zeilen in ein Programm einzubauen. 
Dieses sollte das erste auf der Diskette sein, damit es mit 
< SHIFT RUN/STOP > zu starten ist. Damit haben Sie Ihre 
Tastaturbelegung blitzschnell griffbereit. (Gerd Heinze/ef) 


wird wieder auf den langsameren Modus (50 Hz) umge¬ 
schaltet. 

Der Trick macht sich dann besonders gut bemerkbar, 
wenn mit 

SYS 57721 : REM JSR $E179 

alle Register des 80-Zeichen-Bildschirms neu initialisiert 
werden. (Karl-Heinz Guckler/ef) 

3. Mini-Diashow 


Herkömmliche Diashow-Programme sind meistens sehr 
lang. Eine einfache Diashow, die nur wenig Platz auf der 
Diskette benötigt, finden Sie in Listing 1. Geben Sie das 
Programm »Mini-Diashow« im C 128-Modus ein. Die Bilder, 
die von der Diashow nachgeladen werden, müssen am An- 


5. Basic resetfest 


Mit ein paar einfachen Maschinensprache-Befehlen ist es 
möglich, ein Basic-Programm im C 128-Modus resetfest zu 
machen. Geben Sie dazu »Protect 128« (Listing 2) ein. 
Nach dem Start von Protect 128 ist Ihr Basic-Programm 
noch nicht einmal durch einen Reset zu stoppen. Findige 
Computerfans werden aber jetzt auf die Idee kommen, ei¬ 
nen Reset in den C 64-Modus des C 128 auszulösen. Aus 
dem C 64-Modus kann dann das Basic-Programm mit »Sa¬ 
ve Bas« (Listing 3) gespeichert werden. Wenn ein auf diese 
Art gespeichertes Basic-Programm im C 128-Mödus mit 
DLOAD " name" 

wieder eingelesen wird, kann man es problemlos ansehen 
und editieren. Deshalb ist es sinnvoll, den C 64-Modus zu 
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blockieren. Dazu geben Sie »Block 64« (Listing 4) ein. Der 
C 64-Modus ist dann nicht mehr erreichbar. Das Basic-Pro- 
gramm ist dann (nahezu) perfekt geschützt - zumindest vor 
denjenigen, die diesen Trick noch nicht kennengelernt ha¬ 
ben. (Bernward Platz/ef) 


10 A=DEC<"1300">;READ B$ 
20 B=DEC(B$) 


© 64’er 


30 POKE A,B:A = A»1:READ B*:IF B*<>" * "THEN20 
40 DATA A9,00,8D,00,FF,20,84,FF 
50 DATA 20,7A,41,20,12,41,A9,CI 
60 DATA 8D, 04, OA, 58,4C, A6,5A, * 

70 BANK1:POKE DEC("FFF8"),0:POKEDEC("FFF9"),19 


Listing 2. »Protect 128« schützt Basic-Programme 


1 SYS 57812 "BASIC",8 

2 POKE 174,0:POKE 175,160 

3 POKE 193,1:POKE 194,28 

4 SYS 62957 


© 64’er 


Listing 3. »Save Bas« speichert ein C 128-Programm 
im C 64-Modus 


Leitungen GAME und EXROM (siehe Handbuch). Der He¬ 
xer ist dann mit 

BANK 13: SYS 32768 

zu starten. So entfällt endlich die lästige Sucherei nach der 
Diskette mit dem Kopierprogramm. (Henning Stöcklein/ef) 


1000 SCNCLR : BANK 0 : PR INT"ICH LESE DATEN "; 

1010 FOR I = 0 TO 48 

1020 : READ B*:B=DEC(B*> : PRINT". 

1030 : POKE 32768+I,B :REM 

MASCHINENCODE ’POKEN’ 

1040 : T = T+I#B . REM 

PRUEFSUMME BERECHNEN 
1050 NEXT 

1060 IF T0148795 THEN PRINT" DATENFEHLER !" : END 
: ELSE PRINT” DATEN OK." 

1070 PR INT” ICH LADE DEN HEXER "j 

1080 BLOAD"DER HEXER VI.4«",P<DEC<"8031">> •REM 

HIER EVTL. FILENAMEN AENDERN 
1090 PR INT"UND SPEICHERE IHN WIEDER AB. "j 
1100 BSAVE"HEXER-U36",P(DEC C"8000")) TO P(DEC("A80 
0") ) 

1110 IF DS THEN PRINT "ETDS* : END : ELSE PRINT "F 
ERTIG !" 

1120 PR INT"DAS PROGRAMM 'HEXER-U36- JETZT IN EIN 2 
7256 BRENNEN" 

1130 PR INT"UND IN DEN STECKPLATZ U36 SETZEN." 

1140 PR INT"AUFRUF MIT 'BANK 12 : SYS 32788- " 

1150 : 


1160 REM ES FOLGEN DIE DATEN DES PROGRAMMES ’HEXPA 
TCH.ASE- 
1170 : 

1180 DATA A2,F6,9A,A9,31,85,26,A9,80,85,27,A9,01,8 


5,24,A9 

1190 DATA IC,85,25,A9,IC,48,A9,1B,48,78,AO,00,Bl,2 
6,91,24 

1200 DATA C8,DO,F9,E6,25,E6,27,A5,27,C9,CO,DO,EF,5 
8,4C,DD 
1210 DATA 02 


€ 64’er 


Listing 5. Der »Hexer« wird aus dem ROM gestartet 


10 A=DEC(”8000"):READ B$ 

20 B=DEC(B$> 

30 POKE A,B:A = A+1:READ B*:IF B*<>"»"THEN20 
40 DATA 09,80,09,80,C3,C2,CD,38 
50 DATA 30,02,« 


~T—- - 


© 64’er 


Listing 4. »Block 64« blockiert den C 64-Modus 


7. Programme vergleichen 

Wenn Sie zwei Programme vergleichen möchten, laden Sie 
normalerweise ein Programm in den Computerspeicher 
und testen das zweite mit dem Befehl 
DVERIFY " name" 
beziehungsweise 


6. Der Hexer im ROM 


Die folgende Situation wird vielen C 128-Besitzern bekannt 
sein: Sie wollen ein Programm kopieren und suchen in Ihrer 
Diskettensammlung nach dem entsprechenden Pro¬ 
gramm. Wir setzen der Sucherei nun ein Ende: Das Kopier¬ 
programm »Hexer VI .4« wird nun fest im Rechner installiert. 
Dazu geben Sie Listing 5 im C 128-Modus ein. Achten Sie 
darauf, daß das invertierte »R« in Zeile 1110 auf den rever- 
sen Zeichensatz umschaltet. In Zeile 1080 sollten Sie den 
Dateinamen Ihrer Hexer-Version angeben. Nach dem Start 
des Programms wird der Hexer geladen, geändert und als 
»Hexer-1136« gespeichert. Nun sollten Sie den Hexer in ein 
EPROM mit der Typenbezeichnung 27256 brennen. Wenn 
man die Länge des Files beachtet, wird man relativ schnell 
auf die Idee kommen, ein EPROM mit der Bezeichnung 
27128 zu nehmen. Davon ist allerdings abzuraten, da nur 
selten ein Baustein dieses Typs im C 128 funktioniert. Auf¬ 
gerufen wird der Hexer mit 
BANK 12: SYS 32768 

Wenn Sie Ihren Computer nicht öffnen möchten, um zum 
Beispiel die Garantie nicht ablaufen zu lassen, können Sie 
das EPROM auf einer EPROM-Karte in den Expansion- 
Port stecken. Die Karte muß dabei ausgeschaltet sein. Läßt 
sich die Karte nicht ausschalten, so unterbrechen Sie die 


VERIFY " name" ,8 

Mit diesen Befehlen läßt sich nur feststellen, ob beide 
Programme gleich sind oder nicht. Sie können aber nicht 
herausfinden, wo sich die Programme unterscheiden. Mit 
dem Befehl »C« des eingebauten Maschinensprachemoni¬ 
tors lassen sich die Programme mit den folgenden Befeh¬ 
len problemlos vergleichen: 

MONITOR 

L" namel" ,8,1300 
L" name2" ,8,11300 
>ae 

Bei dem letzten Befehl gibt der Computer mehrere Hexa¬ 
dezimalzahlen auf dem Bildschirm aus. Wichtig sind nur 
die ersten beiden. Sind diese zum Beispiel 4E 36, so lautet 
der Vergleichsbefehl: 

C 1300 364E 11300 

Nach der Eingabe dieses Befehls werden die Adressen 
ausgegeben, an denen die beiden Programme unter¬ 
schiedlich sind. Mit dem Befehl »M« können Sie sich die un¬ 
terschiedlichen Speicherstellen ansehen. Hat der C128 
beim Vergleich zum Beispiel die Adresse 0331F angezeigt, 
so lassen sich die unterschiedlichen Speicherzellen mit 
>331F 
und 

>133IF 

darstellen. Einem perfekten Vergleich zweier Programme 
steht also nichts mehr im Wege. (U.Kepper/ef) 
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EINGABEHILFEN 


N obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen wer¬ 
den. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer 128« und »MSE« (Maschinen-Sprache-Editor) ent¬ 
wickelt. Der Checksummer ist für Basic-Programme und 
der MSE für Maschinensprache-Listings zuständig. 

Der MSE 


Wie eben erwähnt, dient der MSE zur Eingabe von 
Maschinensprache-Programmen. Als erstes müssen Sie 
den sogenannten »MSE-Lader« (Listing 1) abtippen. Dieser 
erzeugt das eigentliche MSE-Programm auf Diskette oder 
Kassette. 


5 »R1NT CHR«(14) <KD2> 

1« PRINT "CCLR>" <1HM> 

20 PRINT "niaHmWMmWMWWAr <G90> 

30 PRINT “«4D0WN,2SP«CE>TEST «SPACE,BLUE,6SPACEV <QGS> 

40 PRINT " EBb-rfOTtfIftw™WoWBViirnifOTir <8AG> 


Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungsstrichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungsstrichen die CBM- 
Taste und den Buchstaben < Q >, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben < W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann <SHIFT T> und normal EST, zum 
Schluß noch zweimal die Leertaste, die Färbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 
und < RETURN > drücken. Die Eingabe des MSE- 
Laders muß im C 64-Modus erfolgen, ebenso die Einga¬ 
be der MSE-Listings! 

Jetzt können Sie beginnen, das Listing 1 abzutippen. Der 
MSE-Lader erkennt, wenn Sie beim Eintippen der DATA- 
Zeilen einen Fehler gemacht haben. 

Wenn Sie das Listing 1 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die obengenannte POKE-Zeile eingeben! 

Datasetten-Besitzer müssen die »8« am Ende von Zeile 
343 in eine »1« ändern. 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich selbst 
auf Diskette oder Kassette unter dem Namen »MSE VI.1«. 
Dieses fertige MSE-Programm laden Sie dann bei Bedarf 
wie ein normales Basic-Programm und starten es mit 
»RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden, vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 



Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen Tipp¬ 
fehler zu vermeiden und sparen eine Menge Zeit. 

Wenn Sie ein Programm von Diskette oder Kassette la¬ 
den wollen, um an einer bestimmten Stelle weiterzutippen 
oder noch eine Korrektur vorzunehmen, geben Sie auf die 
Frage nach der Startadresse ein »L« ein. Danach müssen 
Sie »D« oder »T« drücken, je nachdem, ob Sie von Diskette 
oder Kassette (»tape«) laden möchten. Wenn das Pro¬ 
gramm unter diesem Namen nicht auf der Diskette vorhan¬ 
den ist oder ein sonstiger Ladefehler vorlag, meldet sich 
der MSE mit »l/O-ERROR«. In so einem Fall drücken Sie 
< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie hintereinander die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ein. Für 
die Leerzeichen zwischen den Zahlen sorgt der MSE auto¬ 
matisch selbst. Wenn Sie in einer Zeile einen Tippfehler ge¬ 
macht haben, meldet sich der MSE sofort mit einem 
Brummton und der Meldung »EINGABEFEHLER«. Nach 
einem Druck auf die < RETURN >-Taste können Sie mit 
der DEl-T aste den Fehler korrigieren. 

Wenn Sie das gewünschte Programm vollständig einge¬ 
geben haben, speichert es der MSE automatisch auf Dis¬ 
kette oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 


Abkürzung 

Taste 

[CTRL) 

steht für Control-Taste, so bedeutet [CTRL+A), daß 
Sie die Control-Taste und die Taste -A« drücken 
müssen. Im folgenden steht: 

(DOWN) 

Taste neben rechtem Shift; Cursor unten 

(UPj 

Shift-Taste & Taste neben rechtem Shift; 

Cursor hoch 

[CLR) 

Shift-Taste & 2. Taste von ganz rechts oben 

(INST) 

Shift-Taste & Taste ganz rechts oben 

[HOME) 

2. Taste von ganz rechts oben 

IDEL) 

Taste ganz rechts oben 

(RIGHT) 

Taste ganz rechts unten 

HEFT! 

Shift-Taste & Taste unten rechts 

[SPACE) 

ISHIFT- 

Leertaste, Hinweis: [13 SPACE) bedeutet 13mal 
die Leertaste drücken 

SPACE) 

Shift-Taste & Leertaste 

fFI) 

grauer Tastenblock rechts oben 

[F3] 

grauer Tastenblock rechts oben 

(F5j 

grauer Tastenblock rechts oben 

!F7) 

grauer Tastenblock rechts oben 

IF2.I 

grauer Tastenblock rechts oben & Shift 

IF4) 

grauer Tastenblock rechts oben & Shift 

|F6) 

grauer Tastenblock rechts oben & Shift 

)F8) 

grauer Tastenblock rechts oben & Shift 

[RETURN] 

Return-Taste 

[CTRL+Ij 

TAB-Taste 


Tabelle 1. Die Steuerbefehle für den C128 im Klartext 
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Der Checksummer 128 


Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 
< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 


<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zü Klamiv.urn. 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 2) mit dem MSE im C64-Modus abtippen. Die 
Eingabehinweise entnehmen Sie bitte obigen Angaben zur 
Eingabe von MSE-Listings. Wenn Sie fertig sind, speichern 
Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer (im C 128-Modus) durch 
die Eingabe von »RUN« und das Drücken der RETURN- 
Taste. 

2. Wenn die Meldung »Checksummer 128 aktiv « auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler ge¬ 
macht und der Checksummer ist nun eingeschaltet. 

3. Nun können Sie den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN- 
Taste: 

10 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme der eben eingegebenen Basic-Zeile. Sie muß 
<A99> lauten. Dem Checksummer ist es übrigens egal, 
ob Sie »10 REM« oder »10REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer 128 eingeschaltet haben) immer dann, 
wenn Sie eine Basic-Zeile eintippen und dann die 
RETURN-Taste drücken. In diesem Sonderheft finden Sie 
die Prüfsumme immer am Ende jeder Programmzeile. 

Diese Zahlen dürfen Sie NICHT mit abtippen. Sie die¬ 
nen lediglich zur Kontrolle, ob Sie alles richtig eingege¬ 
ben haben. 

Als Beispiel können Sie Bild 1 betrachten. Am rechten 
Rand ieder Spalte sehen Sie die Prüfsummen in spitzen 


lassen. Durch < SPACE > können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRL P> ausdrucken. 

Mit <CTRL L> wird das Programm noch einmal neu in 
Ihren C 128 geladen. 


ICTRL+J] 

ICTRLj 

IBLACKj 

[WHITE) 

(RED) 

(CYAN) 

IPURPLEj 

[GREEN) 

[BLUE] 

[YELLOW) 

IRVSON) 

,'RVOFFI 

[ORANGE] 

[BROWN] 

| LIG.RED) 
[GREY1) 
[GREY 2) 
[LIG.GREENI 
[LIG.BLUE! 
[GREY 3) 


Line-Feed-Taste 
Control-Taste 
Control-Taste & 1 
Control-Taste & 2 
Control-Taste & 3 
Control-Taste & 4 
Control-Taste & 5 
Control-Taste & 6 
Control-Taste & 7 
Control-Taste & 8 
Control-Taste & 9 
Control-Taste & 0 
Commodore-Taste & 1 
Commodore-Taste & 2 
Commodore-Taste & 3 
Commodore-Taste & 4 
Commodore-Taste & 5 
Commodore-Taste & 6 
Commodore-Taste & 7 
Commodore Taste & 8 


Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuerzei¬ 
chen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise erken¬ 
nen. Der zu dem jeweiligen Steuerzeichen gehörende Klartext ist so ver¬ 
faßt, daß Sie leicht die Taste beziehungsweise die Tastenkombination fin¬ 
den, die Sie drücken müssen. 


Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 343 von Listing 1 genauer an. Nach dem er¬ 
sten Anführungszeichen nach dem PRINT-Befehl sehen 
Sie ein Zeichen, das Sie auf der Tastatur des C 128 vergeb¬ 
lich suchen werden: die geschweifte Klammer »[«. Immer, 
wenn Sie in einem unserer Listings diese Klammern sehen, 
dürfen Sie das, was innerhalb der Klammern steht, nicht 
eintippen. Sie müssen die entsprechende Taste drücken. 
Beispiel: 10 PRINT"jCLRJ" 

bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (< SHIFT CLR/HOME >). In Tabel¬ 
le 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten und des entsprechenden Klartextes. 

Wenn Sie Bild 1 betrachten, sehen Sie in Zeile 30 inner¬ 
halb der Anführungszeichen ein unterstrichenes »T« nach 
der geschweiften Klammer. Das bedeutet, daß Sie ein »T« 
zusammen mit der SHIFT-Taste drücken müssen, also 
<SHIFT T>. Wenn ein Zeichen »überstrichen« ist, müs¬ 
sen Sie dieses zusammen mit der CBM-Taste eingeben. 
Die CBM-Taste befindet sich ganz links unten auf der Tasta¬ 
tur und hat die Aufschrift »C=«. Auf dem Bildschirm sehen 
Sie die entsprechenden Grafikzeichen (siehe Handbuch 
zum Computer, im Anhang). 

Synthetische Steuerzeichen 

Bitte beachten Sie, daß beim C128 mit größerer Wahr¬ 
scheinlichkeit als beim C64 synthetische Steuerzeichen 
auftreten können (SYNTH.:XXX). Dies ergibt sich aus der 
Menge an zusätzlichen (Bildschirm-) Steuerzeichen, be¬ 
sonders für den 80-Zeichen-Modus (Blinken ein, Blinken 
aus, Unterstreichen ein, Unterstreichen aus...), die sich 
nicht alle direkt über die Tastatur eingeben lassen. Ist er- 
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100 REM DIESES PROGRAMM ERZEUGT DEN 
110 REM MSE VI.1 AUF DISKETTE. 

120 REM BESITZER EINER DATASETTE 
130 REM MUESSEN DIE '8' AM ENDE VON 
140 REM ZEILE 343 IN EINE '1* AENDERN! 

150 REM 

230 IF PEEK £ 44) <>32 THEN PRINT "1CLR>SIE HABEN VE 
RGESSEN, DIE POKES EINZUGE- BEN!": END 
240 PRINT ”CCLRV';: DIM H<75>: FOR 1=0 TO 9 
250 H <48+1)=1: H(65+1>=1+10: NEXT : Z=1000 

260 FOR 1=2048 TO 3755 STEP 20: PRINT "CHOME1ICH 
LESE ZEILE:"Z 

261 FOR N=0 TO 19: READ A*: IF LEN(A*)<>2 THEN 90 
0 

262 IF PEEK(63)+PEEK(64)*256<>Z THEN 800 
270 H=ASC(LEFT*(A*,1)>: L=ASC(RIGHT*<A*,1)> 

280 D=H(H)*16+H(L>: S=S+D: POKE I+N.D 

290 NEXT : READ V: IF SOV THEN 900 

300 S=0: Z=Z+1: NEXT : R=PEEK(2111>: H=PEEK(2106) 

301 POKE 53280,R: POKE 53281,H: POKE 646,R: PRINT 

"CCLRJDIE DATA-ZEILEN SIND FEHLERFREI!" 

302 PRINT "SIE KOENNEN NUN DIE FARBEN DES MSE" 

303 PRINT "EINSTELLEN.": PRINT "C2D0WN/ CRVSONJDR 
UECKEN SIE <1>, <2> ODER <9> 

304 PRINT "CDOWN,2SPACEX1> - RAHMEN-/SCHRIFTFARB 
E 

305 PRINT "C2SPACEJ<2> - HINTERGRUNDFARBE 

306 FRINT "CDOWN,2SPACE><9> - FARBEN UEBERNEHMEN 

307 PRINT " C2D0WNJFARBE ,<1>: "R: PRINT "FARBE <2>: 
"H 

308 GET A: IF A=0 THEN 308 

309 IF A=1 THEN R=(R+1) AND 15 

310 IF A=2 THEN H=(H+1) AND 15 

311 IF A=9 THEN 340 

312 GOTO 301 

340 POKE 2106,H: POKE 2111,R 

342 POKE 631,19: POKE 632,13: POKE 198,2 

343 PRINT "CCLRJSAVE" CHR*(34)"MSE VI.1" CHR*(34) 
",8 

344 POKE 43,1: FOKE 44,8: POKE 45,172: POKE 46,14 
: END 

80© PRINT "CCLR,RVSON>SIE HABEN ZEILE"Z"CLEFT} VE 
RGESSEN:": A=PEEK(646> AND 15 
810 POKE 646,PEEK(53281) AND 15: PRINT "LIST"Z-2" 
—"Z+2: POKE 646,A 
820 GOTO 920 

900 PRINT "<CLR,RVSON>SIE HABEN EINEN TIPPFEHLER 
GEMACHT:": A=FEEK(646)' AND 15 
910 POKE 646,PEEK(53281) AND 15: PRINT "LIST"Z: P 
OKE 646,A 

920 POKE 631,19: POKE 632,17: POKE 633,13: POKE 1 
98,3: END 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00,00,00, 
A2,08,A9,36,85,A4,A9, 1247 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7,A0,00, 
B1,A4,91,A6,C8,D0,F9, 2888 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01,4C,00, 
B0,20,Dl,B1,A9,00,8D, 2781 

1003 DATA 21,D0,A9,0F,8D,20,D0,BD,86,02,A0,B3,A9, 

74,20,FF,Bl,A0,B3,A9, 2679 

1004 DATA B9,20,FF,B1,A0,00,20,CF,FF,99,01,02,C8, 
C9,0D,D0,F5,88,FO,D2, 2912 

1005 DATA C0,11,90,02,A0,10,8C,00,02,20,EA,B1,A0, 
B3,A9,CF,20,FF,B1,20, 2327 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB,85,61, 
20,A7,B4,D0,20,A0,B3, 2864 

1007 DATA A9,E5,20,FF,B1,20,BE,B4,85,60,20,8E,B4, 
85,5F,20,A7,B4,D0,0A, 2624 

1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20,43,B3, 
4C,3A,B0,A9,AA,A0,00, 2379 

1009 DATA EA,EA,E6,FB,DO,02,E6,FC,20,3F,B2,90,EF, 
4C,FB,B4,A2,02,86,58, 3190 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0,FB,C9, 
30,90,0C,C9,47,B0,08, 2970 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0,0F,4C, 

OB, B1,20,D2,FF,A6,58, 2322 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0,26,C9, 

OC, D0,03,4C,0B,B6,C9, 2685 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,DO,03,4C,BA,B4, 
C9,10,D0,03,4C,68,B5, 2282 

1014 DATA C9,OE,D0,06,20,5F,B4,4C,64,B1,4C,92,B0, 
A5,F9,20,02,B1,0A,0A, 2132 

1015 DATA 0A,OA,85,F9,A5,F8,20,02,B1,05,F9,60,C9, 
3A,90,02,69,08,29,0F, 1950 

1016 DATA 60,A6,59,E0,0B,90,IF,A6,58,E0,02,B0,06, 
20,D2,FF,4C,8E,B0,C6, 2509 


1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA,84,57, 
68,68,4C , 8B, B1 , A6, D3 , 2891 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6,58,E0, 
02,90,09,C6,59,20,02, 2468 

1019 DATA FF,C6,58,D0,F9,4C,BE,B0,48,4A,4A,4A,4A, 
20,59,Bl,68,29,0F,C9, 2419 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2,FC,9A, 
20,Dl,Bl,20,48,B2,20, 2261 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5,FB,20, 
4E,Bl,20,ED,Bl,A9,3A, 2860 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E,B0,20, 
ED,B1,A4,59,20,EF,B0, 2530 

1023 DATA 91,FB,C8,84,59,C0,08,90,EC,20,10,B2,A9, 

12.20, D2,FF,20,BE,B0, 2657 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9,14,A0, 

14.20, F2,B1,4C,A2,B1, 2665 

1025 DATA A9,92,2O,D2,FF,20,33,B2,20,E0,B2,20,3F, 
B2,90,9F,4C,8B,B5,A9, 264B 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8,9D,00, 
D9,9D,00,DA,9D,00,DB, 2476 

1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2,FF,20, 
D2,FF,98,4C,D2,FF,20, 2965 

1028 DATA E4,FF,F0,FB,60,B4,5D,85,5C,A0,00,B1,5C, 
F0,06,20,D2,FF,C8,D0, 3100 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,B1,FB,18, 
65,5A,85,5A,90,02,E6, 2606 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5,5A,65, 
5B,85,FF,60,18,A5,FB, 2467 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB,C5,5F, 
A5,FC,E5,60,60,A0,B3, 3106 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20,D2,FF, 
CC,00,02,C8,90,F4,A9, 2692 

1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA,A5,62, 
20,4E,B1,A5,61,20,4E, 2457 

1034 DATA B1,20,ED,B1,A5,60,20,4E,B1,A5,5F,20,4E, 
Bl,EA,EA,EA,EA,EA,EA, 3122 

1035 DATA EA,EA,24,5E,10,01,60,A9,12,2O,D2,FF,A2, 

28.20, ED,Bl,CA,D0,FA, 2703 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01,60,A9, 
A0,85,A4,A9,78,85,A6, 2945 

1037 DATA A9,04,85,A5,B5,A7,A2,13,A0,27,B1,A4,91, 
A6,88,10,F9,CA,F0,19, 2671 

1038 Ui .TA 18, A5, A4,69,28,85, A4,90, 02,E6, A5,18, A5, 
A6,69,28,85,A6,90,E0, 2503 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9,0F,BD, 
18,D4,A9,00,SD,05,D4, 2776 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9,32,8D, 
Ol, D4, A9,00,8D, 0O, D4 , 2413 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60,A2,FF, 
CA,D0,FD,88,D0,F8,60, 2914 

1042 DATA A9,0F,8D,1S,D4,A9,2D,8D,05,D4,A9,A5,8D, 
06,D4,A9,21,BD,04,D4, 2385 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0,FF,20, 
09,B3,A9,20,8D,04,D4, 2250 

1044 DATA A9,00,BD,01,D4,BD,00,D4,60,38,20,F0,FF, 
8A,48,98,48,18,A0,06, 2179 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF,B1,20, 
12,B3,20,E4,FF,FO,FB, 2931 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68,A8,68, 
AA,18,4C,F0,FF,0D,0D, 2704 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53,43,48, 
49,4E,45,4E,53,50,52, 1144 

1048 DATA 41,43,48,45,20,20,20,45,44,49,54,4F,52, 
20,0D,00,20,20,20,20, 1023 

1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D,41,4E, 
4E,20,26,20,44,2E,57, 1128 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20,20,20, 
50,52,4F,47,52,41,4D, 1102 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D,20,2O, 
.20,53,54,41,52,54,41, 1073 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00,0D,0D, 
20,20,20,45,4E,44,41, 1014 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20,24,00, 
92,Ol,01,50,52,4F,47, 1136 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,2O,20,2A,2A, 
2A,20,46,41,4C,53,43, 1024 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20,2A,2A, 
2A,20,20,92,00,0D,0D, 1058 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A,2A,00, 
13,01,20,20,12,44,92, 916 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54,92,41, 
50,45,0D,00,13,20,20, 1151 

Listing 1. Der »MSE«-Lader für die Eingabe von 
Maschinensprache-Programmen 
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1658 DATA 49,2F,4F,26,2D,26,46,45,48,4C,45,52,66, 
20,D1,B1,20,48,B2,A0, 1666 

1659 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC,20,8E, 
B4,85,FB,C5,61,A5,FC, 3267' 

1666 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5,60,B0, 
19,26,A7,B4,D6,14,66, 2866 

1661 DATA 20,A7,B4,F0,0C,85,F9,26,A7,B4,FO,05,85, 
F8,4C,EF,B6,68,68,26, 2749 

1662 DATA 43,B3,4C,5F,B4,26,CF,FF,C9,4C,D6,69,26, 
Dl,Bl,26,48,B2,4C,6B, 2372 

1663 DATA B6,C9,6D,66,A9,66,85,5E,26,5F,B4,26,EA, 
Bl,26,6D,B5,24,5E,36, 2642 

1664 DATA 65,26,E4,FF,F0,FB,26,E1,FF,F6,26,26,9F, 
B2,24,5E,16,69,26,4E, 2435 

1665 DATA B5,20,6D,B5,20,66,B5,20,33,B2,20,3F,B2, 
96,D7,A0,B4,A9,28,20, 2196 

1666 DATA FF,Bl,20,E4,FF,C9,0D,D0,F9,A9,66,85,5E, 
A5,61,85,FB,A5,62,85, 3056 

1667 DATA FC,26,E0,B2,4C,64,Bl,A5,FC,20,4E,Bl,A5, 
FB,85,FF,20,4E,B1,A9, 3063 

1668 DATA 20,A6,3A,26,F2,B1,A6,66,26,ED,Bl,Bl,FB, 
20,4E,Bl,C8,06,08,90, 2566 

1069 DATA F3,20,ED,B1,24,5E,30,63,A9,12,2C,A9,26, 
26,D2,FF,26,16,B2,A5, 2190 

1676 DATA FF,26,4E,B1,A9,92,20,D2,FF,4C,EA,B1,A9, 
FF,85,B8,85,B9,A9,64, 3673 

1671 DATA 85,BA,26,06,FF,A2,FF,40,09,FF,26,CC,FF, 
A9,FF,40,03,FF,26,5F, 3315 

1072 DATA B4,A9,86,85,5E,26,4E,B5,26,48,B2,A2,24, 
A9,2D,20,D2,FF,CA,D6, 2596 


1673 DATA FA,26,EA,B1,20,EA,B1,20,60,B5,4C,C1,B4, 
26,B8,B5,A6,5F,A4,66, 2B12 

1674 DATA A9,61,20,D8,FF,B6,0A,20,B7,FF,29,BF,D0, 
63,4C,FB,B4,A9,61,20, 2577 

1075 DATA C3,FF,20,68,B6,A6,B4,A9,4F,26,FF,B1,20, 
F9,B1,4C,FB,B4,20,68, 2921 

1076 DATA B6,A9,37,A6,B4,20,FF,B1,26,F9,B1,A2,68, 
09,44,F6,06,A2,61,09, 2717 

1677 DATA 54,D0,F1,A9,01,A8,20,BA,FF,A6,00,E0,01, 
F6,1A,A9,46,8D,26,62, 2403 

1678 DATA A9,3A,BD,21,02,B9,01,62,99,22,02,08,00, 
00,02,96,F4,C8,C8,D6, 2182 

1079 DATA 6C,B9,01,02,99,20,02,C8,CC,00,02,D0,F4, 
98,A2,26,A6,02,40,BD, 2018 

1680 DATA FF,26,B8,B5,A5,BA,C9,68,96,33,A6,B9,86, 
57,A9,61,26,03,FF,A9, 2860 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20,B4,FF, 
A5,B9,20,96,FF,26,A5, 2911 

1682 DATA FF,85,61,A5,96,4A,4A,B6,13,20,A5,FF,85, 
62,20,AB,FF,A5,57,85, 2663 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,65,B6,5F, 
84,60,A5,BA,C9,01,D6, 2639 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62,40,FB, 
B4,A9,13,20,D2,FF,A2, 2306 

1085 DATA IC,20,ED,Bl,CA,D6,FA,60,00,06,60,06,60, 
00,00,00,00,00,00,00, 1236 

Listing 1. Der »MSE«-Lader für die Eingabe von 
Maschinensprache-Programmen 


Name : checksummer 128 IcOl le9b 


IcOl 

: 29 

lc 

c3 

07 

fe 

02 

30 

3a 

3f 

1C09 : 

: 99 

22 

93 

43 

48 

45 

43 

4b 

53 

lCll : 

: 53 

55 

4d 

4d 

45 

52 

20 

31 

d6 

1C19 : 

: 32 

38 

20 

4l 

4b 

54 

49 

56 

cl 

1C21 : 

: 22 

3a 

9e 

37 

32 

31 

31 

00 

60 

lc29 : 

: 00 

00 

a9 

80 

85 

9d 

a9 

00 

90 

le31 : 

: 85 

7f 

a9 

ff 

85 

3c 

a9 

59 

74 

lc39 : 

: 85 

4e 

a9 

lc 

85 

4f 

a9 

22 

91 

lc4l : 

: 85 

50 

a9 

Ob 

85 

51 

aO 

00 

lf 

lc49 : 

: a2 

02 

bl 

4e 

91 

50 

c8 

dO 

83 

lc51 : 

: f9 

e6 

4f 

e6 

51 

ca 

10 

f2 

00 

lc59 : 

: 4c 

2a 

Ob 

00 

00 

00 

00 

00 

7d 

lc6l : 

: a9 

00 

8d 

00 

ff 

a9 

Od 

20 

2f 

lc69 : 

d2 

ff 

ad 

cf 

4l 

c9 

56 

dO 

fd 

lc71 : 

11 

ad 

dO 

41 

c9 

37 

dO 

Oa 

63 

lc79 : 

ad 

dl 

4l 

c9 

2e 

dO 

03 

a9 

61 

lc81 : 

ff 

2c 

a9 

00 

8d 

25 

Ob 

aa 

84 

lc89 : 

dO 

Ob 

8d 

64 

Od 

a9 

65 

85 

8d 

lc91 : 

2b 

a9 

Od 

85 

2c 

20 

cd 

Ob 

96 

lc99 : 

a9 

6c 

8d 

02 

03 

a9 

Ob 

8d 

el 

lcal : 

03 

03 

2c 

27 

Ob 

10 

06 

ee 

3 d 

lca9 : 

27 

Ob 

4c 

35 

Od 

2c 

26 

Ob 

fO 

lcbl : 

10 

03 

4c 

f9 

Oc 

20 

a4 

Ob 

00 

lcb9 : 

20 

af 

Ob 

20 

c2 

Ob 

aa 

fO 

89 

lccl : 

el 

bO 

Oc 

ce 

26 

Ob 

20 

e3 

da 

lcc9 : 

Ob 

20 

af 

Ob 

20 

c2 

Ob 

2c 

ce 

lcdl : 

25 

Ob 

30 

03 

4c 

94 

a4 

4c 

7d 

lcd9 : 

d7 

4d 

2c 

25 

Ob 

30 

03 

4c 

dd 


lcel 

: 60 

a5 

4c 

93 

4f 

a9 

ff 

a 2 

21 

lce9 

: 01 

2 c 

25 

Ob 

30 

05 

85 

7a 

el 

lcfl . 

: 86 

7b 

60 

85 

3d 

86 

3e 

60 

bf 

Icf9 : 

: 2 c 

25 

Ob 

30 

03 

4c 

73 

00 

el 

IdOl : 

: 4c 

80 

03 

2 c 

25 

Ob 

30 

03 

45 

ld09 : 

: 4e 

44 

a 6 

4c 

d9 

51 

2 c 

25 

ce 

ldll : 
ldl9 : 

Ob 30 03 4c 13 a6 
50 2c 25 Ob 30 OC 

4c 

64 

6 b 

df 

b5 

ld 21 : 

: a9 

4c 

fl 

Ob 

20 

aO 

50 

a 2 

5c 

ld29 : 

: 00 

2 c 

25 

Ob 

10 

02 

a 2 

02 

8 a 

ld31 : 

: b5 

15 

85 

aa 

b5 

14 

85 

a9 

8 d 

ld39 : 

: 60 

a9 

00 

85 

a7 

85 

a 8 

a9 

bb 

ld4l : 

: ff 

85 

fc 

a9 

07 

85 

fd 

20 

4c 

ld49 : 

: 9d 

Oc 

fO 

77 

c9 

20 

fO 

06 

85 

ld51 : 

: 20 

8 e 

Oc 

4c 

11 

Oc 

20 

9d 

72 

ld59 : 

: Oc 

fO 

68 

c9 

20 

fO 

f7 

c9 

2 e 

ld 6 l : 

: 3a 

dO 

06 

20 

8 e 

Oc 

4c 

20 

44 

ld69 : 

: Oc 

c9 

52 

dO 

29 

20 

9d 

Oc 

2 b 

ld71 : 

c9 

45 

dO 

la 

20 

9d 

Oc 

c9 

07 

ld79 : 

4d 

dO 

Ob 

20 

9d 

Oc 

fO 

43 

7a 

ld81 : 

c9 

3a 

dO 

f7 

fO 

dd 

a5 

fc 

29 

ld89 : 

dO 

02 

c 6 

fd 

c 6 

fc 

a5 

fc 

bO 

ld91 : 

dO 

02 

c 6 

fd 

c 6 

fc 

a5 

fc 

b8 

ld99 : 

dO 

02 

c6 

fd 

c6 

fc 

20 

9d 

ec 

ldal : 

Oc 

fO 

20 

c9 

20 

fO 

f7 

c9 

64 

lda9 : 

3a 

fO 

b8 

c9 

22 

fO 

06 

20 

c5 

ldbl : 

8e 

Oc 

4c 

68 

Oc 

20 

8e 

Oc 

7a 

ldb9 : 

20 

9d 

Oc 

fO 

06 

c9 

22 

dO 

a2 

ldcl : 

f4 

fO 

ec 

60 

06 

a7 

26 

a8 

fc 

ldc9 : 

: 08 

46 

a7 

28 

26 

a7 

45 

a7 

e7 


lddl 

: 85 

a7 

60 

e6 

fc 

dO 

02 

e6 

4b 

ldd9 

: fd 

aO 

00 

bl 

fc 

60 

ea 

ea 

bl 

ldel 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

eO 

lde9 

: ea 

a5 

a8 

45 

a7 

85 

a8 

20 

02 

ldfl 

: bf 

Oc 

20 

bf 

Oc 

a9 

00 

a2 

Oa 

ldf9 

: 04 

06 

a7 

26 

a8 

2a 

ca 

10 

d6 

leOl 

: f8 

c9 

Oa 

90 

02 

69 

06 

69 

c9 

le09 

: 30 

4c 

d2 

ff 

a9 

00 

8d 

00 

e5 

lell 

: ff 

38 

20 

fO 

ff 

8a 

48 

a9 

lb 

lel9 

: 13 

20 

d2 

ff 

a9 

3c 

20 

d2 

93 

le 21 

: ff 

20 

b3 

Oc 

a9 

3e 

20 

d2 

51 

le29 

: ff 

68 

aa 

18 

4c 

fO 

ff 

ad 

b2 

le 31 

: 27 

03 

48 

ad 

26 

03 

48 

a9 

91 

le39 

: 49 

8d 

26 

03 

a9 

Od 

8d 

27 

ba 

le4l 

: 03 

2c 

25 

Ob 

10 

03 

a2 

02 

ad 

le49 

: 2c 

a2 

00 

a5 

a9 

95 

14 

a5 

5e 

le51 

: aa 

95 

15 

20 

d8 

Ob 

a9 

00 

9c 

le59 

: 8d 

28 

Ob 

2c 

25 

Ob 

30 

08 

be 

le6l 

: ce 

27 

Ob 

aO 

02 

4c 

d8 

a6 

cd 

le69 

: 20 

f8 

50 

20 

03 

Oc 

ee 

26 

b6 

le71 

: Ob 

68 

8d 

26 

03 

68 

8d 

27 

dO 

le79 

: 03 

20 

d6 

Oc 

4c 

6c 

Ob 

85 

23 

le81 

: ab 

8a 

4b 

ae 

28 

Ob 

a5 

ab 

22 

le89 

: c9 

Od 

dO 

02 

a9 

00 

9d 

00 

5e 

le91 

: 08 

ee 

28 

Ob 

68 

aa 

a5 

ab 

46 

le99 

: 18 

60 

ff 

ff 

ff 

ff 

ff 

f5 

cd 


Listing 2. Der »Checksummer 128« 
für die Eingabe von Basic-Listings 


kennbar, daß die Basic-Zeile fehlerfrei abgetippt ist, Sie al¬ 
so auf die Prüfsumme verzichten können, so erscheint die 
korrekte Eingabe sehr leicht. Geben Sie anstelle des 
»SYNTH.:XXX« folgende Anweisungen ein: 

"+CHR$(XXX)+" 

Die CHR$-Anweisung ist dabei nicht innerhalb der An¬ 
führungsstriche, sondern außerhalb! 

Wollen Sie auf die Prüfsumme nicht verzichten, ist die 
Eingabe etwas komplexer. Arbeiten Sie dazu folgende sie¬ 
ben Schritte ab: 

- Subtrahieren Sie von der Zahl nach der Angabe 
»SYNTH.:« den Wert 128. 

- Suchen Sie aus der Zeichencode-Tabelle im Handbuch 


(Anhang A-5) den dazugehörigen Buchstaben aus Satz 
1 aus. 

Geben Sie die Basic-Zeile wie gewohnt ein und berück¬ 
sichtigen das synthetische Steuerzeichen nicht, lassen 
aber einen Freiraum für ein Zeichen. 

Schließen Sie die Eingabe mit < RETURN > ab. 
Fahren Sie mit dem Cursor auf den Freiraum in der Ein¬ 
gabezeile. 

Schalten Sie mit <CTRL 9> den Revers-Modus ein. 
Geben Sie den Buchstaben, den Sie vorher aus Anhang 
A-5 ermittelt haben, geSHIFTet ein üpd drücken Sie 
< RETURN >. Die Prüfsumme müßte nun stimmen. 
(G. Möllmann, N. Mann, D. Weineck, A. Lietz/kn) 
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Einsteiger wie Fortgeschritte¬ 
ne finden in einem ausgiebi¬ 
gen Kurs alle notwendigen 
Grundlagen zur Grafik- 
Programmierung. Das Spek¬ 
trum reicht vom Erstellen von 
Sprites bis zur Darstellung 
von Objekten in 3D-Grafik. 

Für das fantastische Malpro¬ 
gramm »Amica-Paint« haben 
wir eine Reihe von Zusatzpro- 
grammen zusammengestellt. 
Funktionen wie beispielswei¬ 
se das Drehen von Blocks 
werden damit wesentlich ver¬ 
bessert. 

Dazu gibt es weitere sinnvolle 
Utilities, Tips & Tricks, mit 
denen Sie die Grafik- 
Fähigkeiten des C64 bis an 
die Grenzen ausnutzen. 

Das Sonderheft 45 liegt ab 
dem 25.8.1989 an Ihrem 
Kiosk. 
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